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Abstract 


The  propagation  of  a  focused  laser  beam  in  a  magnetically  confined  plasma  is 
studied  using  ray  tracing  techniques.  The  transport  of  beam  energy  along  rays  in  a 
vacuum  is  described  in  terms  of  a  phase  space  distribution  function  which  includes  the 
beam  diffraction  effects.  Solutions  for  ray  trajectories  in  the  plasma  are  solved  for 
various  density  profiles.  These  solutions  are  used  to  match  into  corresponding  density 
distributions  within  the  medium.  Energy  deposition  and  ponderomotive  forces  are 
evaluated  accordingly.  Program  packages  are  designed  to  be  used  with  the  magnetic  shell 
flux  code  developed  by  McMullin,  Milroy  and  Capjack. 
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Chapter  1 
Introduction 


1.1  Significance  of  the  problem 

The  utilization  of  lasers  as  energy  sources  for  heating  plasmas  in  a  thermonuclear 
fusion  reaction  has  been  studied  extensively  in  the  past  years.  J.  Nuckolls  et.  a!.1 
proposed  the  scheme  of  using  laser  beams  to  heat  plasmas  confined  within  a  spherical 
pellet  (inertial  confinement),  while  Dawson2  et  al.  reported  the  feasibility  of  heating 
magnetically  confined  plasmas  by  lasersdaser  heating  with  magnetic  confinement).  In  both 
schemes,  as  the  laser  beam  propagates  within  the  plasma,  energy  is  transferred  to  the 
medium.  The  plasma  is  heated  up  upon  absorbing  the  energy  and  as  a  result, 
thermo-expansion  of  the  plasma  will  take  place.  The  disturbance  in  the  plasma  density 
affects  the  refractive  index  and  hence  a  change  in  the  propagation  of  the  beam.  This,  in 
turn,  will  change  the  heating  pattern  for  the  plasma  and  a  self-consistent  system  will  be 
set  up  between  the  plasma  and  the  beam.  In  order  to  understand  the  heating  mechanism,  it 
is  essential  to  study  the  problem  of  laser  beam  propagation  within  a  plasma  medium. 
Before  introducing  the  research  objectives,  a  survey  of  the  recent  investigations  on  this 
problem  will  be  carried  out  in  the  following  section. 


1.2  Review  of  past  work 

In  1974,  Humphries3  studied  the  propagation  of  a  laser  beam  parallel  to  the 
magnetic  field  in  a  ©  pinch  plasma  column.  He  found  that  waveguide  type  solutions  are 
necessary  for  describing  the  beam  condition  within  a  plasma  which  was  assumed  to  have 
a  radially  parabolic  density  profile.  Mani  etal 4  used  the  method  of  normal  mode  analysis 
to  describe  laser  beam  propagation  within  a  plasma  column  having  a  parabolic  density 
variation.  They  evaluated  the  maximum  number  of  modes  that  can  be  trapped  within  the 
plasma.  Their  analysis  showed  that  the  beam  propagates  periodically  along  the  column 
Feit  etal.5/6/7' 8  developed  a  self-consistent  treatment  for  the  relation  between  laser 
beam  propagation  and  plasma  hydrodynamics.  They  found  that  the  beam  trapped  itself  as 
it  heats  up  the  medium.  In  their  further  investigations,  they  showed  that  an  axial  density 
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changes  were  also  found  in  the  beam  after  it  traversed  the  column.  They  also  studied  the 
case  of  a  beam  propagating  through  a  region  with  an  electron  density  profile  determined 
from  a  detailed  time-dependent  hydrodynamic  calculation.  The  beam  was  found  to  exhibit 
aperiodic  properties  along  the  column  but  remained  trapped.  McMullin  etal.9  used  normal 
mode  analysis  to  derive  a  general  expression  for  the  field  of  a  laser  beam  in  a  quadratic 
waveguide.  The  electric  field  amplitude  was  shown  to  exhibit  periodic  property  along  the 
column.  For  an  axially  varying  parabolic  density  profile,  the  electric  field  was  expressed 
as  a  linear  combination  of  the  normal  modes  for  a  quadratic  profile.  They  found  that  the 
electric  field  of  the  beam  displays  aperiodic  axial  variation. 

Instead  of  using  wave  optics  to  treat  the  problem,  Steinhauer  and  Ahlstrom10  -  11 
made  a  detailed  study  on  the  problem  by  means  of  geometrical  optics.  They  considered 
the  propagation  of  rays  along  a  cylindrical  plasma  column  with  azimuthal  symmetry.  They 
found  that  rays  would  oscillate  within  a  plasma  column  which  has  a  parabolic  density 
profile  with  an  on  axis  minimum.  The  beam  trapping  phenomena  were  experimentally 
observed  by  several  research  groups12  - 13  - 14. 

Dudder  and  Henderson15  developed  a  two  dimensional  (radial  and  axial)  simulation 
model,  RAMSES,  for  studying  the  propagation  of  a  laser  pulse  through  a  background  gas 
or  plasma.  Ray  optics  was  used  in  the  model.  The  ray  trajectories  were  solved  from  the 
ray  equation.  Hubbard  and  Montes16  also  developed  a  program  to  trace  the  beam  in  a 
continuously  varying  refracting  medium.  They  used  the  method  of  Taylor  expansion  about 
the  initial  position  to  approximate  the  new  ray  position.  Acccording  to  the  analysis,  by 
knowing  the  refractive  index  of  the  medium,  its  gradient,  the  co-ordinates  and  tangent 
vector  of  an  initial  point  on  the  ray,  the  co-ordinates  of  the  ray  path  can  be  found. 
However,  diffraction  and  phase  information  of  the  radiation  were  not  included  in  the 
program  and  the  initial  positions  and  directions  of  the  rays  were  chosen  in  a  definite 
pattern. 

Rinker  and  Bohannon17  recently  presented  a  description  of  the  finite  size  focal 
spot  of  a  laser  beam.  Rays  were  chosen  to  be  normally  distributed  at  the  focal  plane  so 
that  a  Gaussian  beam  intensity  profile  was  ensured  at  the  spot.  In  the  analysis,  the  rays  are 
traced  within  a  cylindrical  symmetric  medium  by  means  of  a  two  step  procedure.  The 
first  step  gives  the  ray  positions  at  the  boundaries  of  a  plasma  zone  and  the  second  step 
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computes  the  ray  path  within  the  zone.  Their  overall  treatment  does  not  include  the 
diffraction  effects  of  the  beam. 

Tappert18  developed  a  method  to  trace  rays  for  a  focused  laser  beam  with  the 
inclusion  of  diffraction  effects.  Formulae  were  derived  for  the  spread  of  ray  angles  that 
yield  the  correct  diffraction  patterns  for  coherent  and  partially  coherent  beams.  With  this 
method,  the  size  of  the  beam  was  found  to  reach  the  diffraction  limit  in  the  case  of  an 
ideal  lens. 


1.3  Purpose  of  present  work 

The  purpose  of  the  present  work  is  to  investigate  the  propagation  of  a  focused 
laser  beam  in  a  plasma  confined  within  a  solenoidal  magnetic  field  by  using  geometrical 
optics.  The  use  of  ray  optics  to  describe  beam  propagation  gives  an  alternate  approach 
for  obtaining  the  propagation  behaviour  of  the  beam.  The  objective  can  be  divided  into 
three  parts: 

1.  Descri ption  of  a  focused  laser  beam  in  vacuum  using  ray  optics 

By  using  rays  to  describe  the  focusing  action  of  an  ideal  lens,  one  has  to 
solve  the  problem  of  infinite  intensity  at  the  focus  as  all  rays  will  merge  into  that 
point  Tappert  suggested  including  the  diffraction  effects  of  a  focused  beam  in  the 
ray  tracing  technique  so  that  a  finite  size  focal  spot  can  be  attained.  Based  upon  this 
idea,  rays  emerging  from  a  converging  lens  are  assigned  a  direction  which  deviate 
from  the  direction  pointing  at  the  focus.  This  deviation  is  chosen  to  follow  a 
Gaussian  distribution.  With  such  chosen  directions,  rays  will  spread  out  at  the  focus 
in  a  Gaussian  manner,  avoiding  the  problem  of  infinite  intensity. 

2.  Beam  propagation  within  a  mag  net  i  cal  iy  confined  plasma  column 

The  propagation  of  the  beam  within  the  plasma  are  studied  in  terms  of  ray 
optics.  Past  work  has  been  done  for  the  case  of  a  parabolic  density  profile.  The 
present  objective  is  to  trace  rays  within  the  plasma  which  has  an  arbitrary  profile. 
This  tracing  is  intended  for  implementing  the  magnetohydrodynamic(MHD)  code  for 
a  plasma  column  developed  by  McMullin,  Milroy  and  Capjack  19.  In  the  code,  the 
spatial  beam  intensity  profile  and  hence  the  laser  power  is  assumed  to  be  a 
constant  of  time  within  the  column.  This  assumption  does  not  include  the  effect  of 
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a  changing  refractive  index  which  alters  the  beam  profile.  The  tracing  routine  will  be 
used  to  modify  the  laser  power  computation  routine  in  the  MHD  code  by  including 
refractions.  In  this  way,  a  more  realistic  simulation  of  the  plasma  can  be  obtained 
3.  Ca/cu/ation  of  absorbed  energy  and  ponderomotive  forces 

Upon  knowing  how  the  beam  propagates  inside  the  column,  energy 
deposition  and  absorption  can  be  described  more  accurately.  An  energy  absorption 
package  is  designed  based  upon  the  computed  ray  trajectories,  since  energy 
interchanges  are  taken  place  along  the  ray  paths.  Moreover,  the  MHD  code  is  also 
designed  for  studying  the  magnetohydrodynamics  for  a  gas  target,  the 
ponderomotive  force  becomes  an  important  component  affecting  the  dynamics  of 
the  plasma  as  high  intensity  laser  beams  are  used  in  this  case. 

Discussions  and  derivations  of  the  above  objectives  are  presented  in  the 
following  chapters.  In  chapter  two,  an  explanation  of  Tappert's  diffractive  ray  tracing 
technique  is  given.  Here,  rays  can  be  chosen  accordingly  to  simulate  a  focused  laser 
beam  propagating  in  vacuum.  Cases  for  coherent  and  incoherent  Gaussian  beam  are 
presented.  The  propagation  of  these  rays  inside  the  plasma  is  discussed  in  chapter  three 
Solutions  to  the  ray  trajectories  in  regions  with  different  densities  are  derived.  Chapter 
four  gives  a  discussion  on  the  energy  absorption  and  ponderomotive  forces  within  the 
plasma.  Energy  absorption  is  based  on  inverse  Bremstrahlung  process.  Derivations  of 
ponderomotive  forces  are  based  on  the  work  of  Chen30.  The  conversion  of  the  analytical 
results  obtained  in  previous  chapters  into  numerical  computations  is  presented  in  chapter 
five.  Descriptions  of  program  routines  for  generation  of  ray  locations  and  directions,  ray 
tracing  and  energy  absorption  are  given  and  discussed.  Results  computed  for  a  tested 
density  profile  within  the  plasma  column  are  discussed  in  chapter  six. 

CGS  units  are  adopted  throughout  the  work,  except  power  is  given  in  watts. 
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Chapter  2 

Diffractive  ray  tracing 

The  focusing  action  of  an  idea!  converging  lens  can  be  determined  by  tracing  rays 
according  to  the  theory  of  geometrical  optics.  Ideally,  rays  parallel  to  the  optical  axis  of  a 
converging  lens  will  all  converge  to  the  focus  resulting  with  an  infinite  intensity  at  that 
point.  However,  according  to  the  theory  of  diffraction1,  a  light  beam  parallel  to  the  optical 
axis  of  the  lens  is  not  focused  to  just  a  point  but  to  a  sizable  area.  The  beam  intensity  at 
the  geometrical  focus  is  found  to  be 
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where  A  is  the  amplitude  of  a  spherical  wave  front, 
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•  at  unit  distance  from  the 


source;  f^and  a  are  focal  length  and  aperture  of  lens  respectively;  A  is  the  wavelength  of 
the  incident  beam.  As  can  be  seen  from  the  expression,  the  focal  intensity  goes  to 
infinity  as  the  wavelength  A  goes  to  zero  which  is  the  basic  assumption  used  in 
geometrical  optics. 

A  more  accurate  description  of  the  lens  focusing  action  can  be  provided  by  the 
ray  tracing  techniques  if  the  diffraction  effects  are  incorporated  into  the  picture.  This 
chapter  discusses  how  rays  can  be  chosen  to  take  the  diffraction  effect  into  account  by 
introducing  the  idea  of  a  phase  space  distribution  function.  Based  on  this  function, 
formulae  for  ray  directions  and  for  beam  size  are  derived  for  a  beam  with  a  Gaussian 
amplitude  and  a  coherent  phase  in  the  first  case  and  an  incoherent  phase  in  the  second 
case.  Section  2.1  explains  how  the  radiation  energy  of  a  beam  can  be  distributed  into 
particular  locations  and  directions  according  to  the  above  distribution  function.  This  latter 
function  for  a  Gaussian  beam  will  be  derived  in  section  2.2.  Section  2.3  discusses  how 
the  distributed  radiation  energy  can  be  assigned  to  rays  with  particular  directions  and 
locations.  It  also  gives  a  description  of  the  ray  distribution  at  the  lens  and  focal  planes. 
Section  2.4  discusses  the  distribution  function  for  a  Gaussian  beam  with  incoherent 
phases  due  to  instrument  limitations. 
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2.1  Tappert's  phase-space  distribution  function 

In  this  section,  Tappert's  phase  space  distribution  function  is  defined.  The 
significance  of  this  function  in  the  ray  tracing  technique  is  discussed.  The  energy  density 
and  energy  flux  of  a  laser  beam  are  found  to  be  the  zero  and  first  moments  respectively 
of  this  function  with  respect  to  direction. 

In  conventional  ray  tracing  of  light  propagation  through  a  converging  lens,  each 
point  at  the  lens  plane  can  be  associated  with  a  ray  directed  towards  the  focus  so  that  all 
rays  will  meet  at  one  spot.  In  order  to  obtain  the  diffraction  limited  focus  size,  the 
directions  of  rays  were  chosen  in  such  a  way  that  not  all  the  rays  would  intersect  at  the 
focus.  Tappert's  phase  space  distribution  function  provides  a  method  of  solving  this 
problem. 

Before  defining  the  distribution  function,  a  review  on  the  derivation  of  energy 
flux  and  energy  density  from  Helmoltz  equation  for  the  vacuum  case  is  given  in  here  for 
future  reference. 

The  wave  equation  for  a  laser  beam  propagating  in  vacuum  is  given  by  the 
Helmoltz  equation 

V2E  +  k 2t  =  0 

t  =  e(r)exp(ik*r  -  loot)  (2.1.1 

where  k  is  the  propagation  vector  in  vacuum,and  lkl=oj/c;  w  is  the  angular  frequency  of 
the  wave;  c  is  the  speed  of  light;  t  is  the  position  vector  of  a  wavefront  at  a  distance  r 
from  the  source.  Through  assuming  that  the  wave  propagates  primarily  along  the  z 

•~y 

direction,  E  is  taken  to  have  the  form 

E  =  e(x,y,z)exp(ikz  -  iwt)  1 2 

By  using  the  parabolic  approximation  (which  states  that  the  axial  field  amplitude  variation 

over  a  wavelength  is  much  smaller  than  the  variation  over  the  axial  scale  length, that  is  , 

(■^4  <<  k—  ),eq.  (2.1.1)  is  then  reduced  to 

dzz  3z 


1  3  2e 

2k 


=  0 


(2.1.3) 


where 
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By  taking  the  Fourier  Transform  of  eq.  (2. 1.3)  with  respect  to  t  =  k  T  +  k  j  and 
using  the  boundary  conditions  :  (1)at  infinity,  the  integrals  of  —  and  e  vanish  over  a 
surface  perpendicular  to  the  direction  of  propagation  (see  footnote)  ,  the  equation 
becomes 

de,_ 

L  -  a2k2F 

35"'  A  F  (2.1.3a) 

On  solving  eq.  (2.1.3a)  with  the  boundary  condition  that  the  electric  field  at  the  lens  plane 
is  £(x,y,Zg),  the  solution  of  the  transformed  equation  is 

Mkx’ky’z)  =  eF^kx,ky,z0^exp^'a2ki^Z"z0^ 


where 


OO  OO 


eF(kx»ky »z)  =  exp(ikjxl)E(xJ_,z)d2xx 


,2  = 


2i k 


(2.1.5) 


By  taking  the  inverse  Fourier  transform  of  eq.  (2.1.4)  and  applying  the  convolution 
theorem,  the  amplitude  of  the  electric  field  at  z>ZqIs  given  by 


e(x,y,z) 


OO  OO 


-Jil 


(2.1.6) 

According  to  the  electromagnetic  theory,  the  time  average  energy  density  U  and  flux  S 
of  the  radiation  field  which  is  characterized  by  eq.  (2.1.2)  are 


(2.1.7) 

(2.1.8) 


where  Vj  is  l_t  +  iL_: $ 
ax  ayJ 

These  two  quantities  can  be  evaluated  in  terms  of  the  integral  derived  in  eq  (2.1.6).  The 


The  boundary  condition  can  be  imposed  because  of  the  finiteness  of  field  energy.  At  any 
time  t,  the  wavefront  from  a  source  reaches  a  distance  ct  If  the  boundary  is  taken  to  be 
further  than  ct,  the  field  will  be  zero. 


. 


' 
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derivation  of  S  is  given  in  Appendix(l). 

Instead  of  obtaining  the  energy  density  and  flux  by  directly  evaluating  eq.  (2.1.7) 
and  eq  (2.1.8)  with  the  electric  field  given  by  eq.  (2.1.6),  Tappert  introduced  the  idea  of 
using  a  phase  space  distribution  function  to  evaluate  the  quantities.  This  distribution 
function  was  originated  from  Wigner2  who  introduced  it  in  finding  the  probability  of  a 
particle  having  its  location  and  momentum  defined  simultaneously. 

Adopting  this  idea  from  Wigner2  ✓ 3,  Tappert4 was  able  to  describe  the  propagation 
of  beam  energy  in  terms  of  a  set  of  rays  continuously  distributed  over  space  and 
directions  by  using  a  phase  space  distribution  function  in  the  form 


j. t N  k2  r°Of'0Oj9‘>i  i kiij/x,'  f-+  1  ^  +  /-*■  ^1 T i  \ 


(2.1.9) 


is  defined  in  eq.  (2.1.2);  ux  is  a  two  dimensional  unit  vector  whose  x  and  y 
components  denote  the  direction  cosines  of  the  ray  direction  (see  fig.  2.1) 

u  =  sinecostf 

4.x 

u,  =  si  nosing 

-Ly 

For  rays  propagating  close  to  the  axis  of  propagation,  the  magnitude  of  ux  is 


2 


sine  I  =  e 


For  small  angle  0  ,  the  magnitude  of  uxapproximately  equals  to  the  angle  which  is  the 
angle  the  ray  subtends  at  the  z-axis. 

This  function  gives  a  description  of  the  distribution  of  beam  energy  over  space 
and  direction.  The  amount  of  beam  energy  which  is  located  at  the  point  (x,y)  and 
propagates  in  the  direction  ux=ux'kz  is  determined  from  the  function.  The  trajectory  which 
is  traced  out  by  this  pack  of  energy  is  a  ray  with  defined  origin  x  and  direction  Uj_+  z. 
Tappert’s  function  is  a  real  function  and  may  take  negative  values  It  has  the  following 
properties: 
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Figure  2. 1  Co-ordinate  system  adopted  for  rays. 
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1.  When  it  is  integrated  over  all  transverse  directions  u,_,  it  gives  the  energy  density 
over  a  volume  element  at  location  (xj^z),  that  is, 


(2.1.10) 


which  after  substituting  f  from  eq.  (2.1.9),  gives 


U(Xj-’  z)  E7l'f"jrtl^**^fykU±'X±c(xi.-Yxl,  2)e*(xVj‘;,  z)  d2i 


1  1(2  r°°r“>sinkx'  sinky'  1+,  x  ^  h, 

■ST"  T VFLL~£T-  -JT  e(xLTxi,z)e*(xi+ixi,Z)dx'dy 


Since  the  amplitude  of  the  electric  field  is  assumed  to  vary  slowly  over  a 

wavelength,  the  field  can  be  considered  constant  over  the  region  of  integration 

(ZJL  7T  \  -*■ 

k  *  k"  '  The  value  of  the  electric  field  at  xx=0  is  taken  to  be  the  field  value 

throughout  the  region  (  y  2-  ).  Thus,  the  integral  can  be  approximated  as 

K  K 

U<*-  z )  ■  g~~  sy^]dx'dy'E^,z)e*(xJ,z) 


0 


-  lefo.z)  I2  .  |t(£.,z)|2 

8tt  ir2  4k2  8^ 

which  is  the  energy  density. 

2.  When  uxf  is  integrated  with  respect  to 

the  light  beam  along  x  ,  y  directions  is  obtained 

1  ,1 


the  transverse  flux  components  of 


■  |p£1l1f(xx*ui*z)uJ-d2uJ-  (2-i-ir 

The  aforemented  statement  is  verified  by  substituting  f  into  eq  (2.1.1  1)  giving 


1  * 


■ 


' 


c 

8tt 


1 1 


Sx(xx,z)  =  ili^dx,dy,e(xx~^,z)£*(xj_^x^,z) 


A-L  2  -L 


k  \2 


2tt 


)  /1  (1(uLxi+uj^j)e'lk^u±xX  +U±yy  ^du^du 


i-y 


Consider  the  x  component  of  Sj_, 


(2.1.12) 


Sx(x_l,z)  =  -§7  //dx'dy ,e(xx-^,z)e*(x1+|xJ^,z) 


tt  .1+, 


=  -~§tT  f^T2  /co/dxldy,£(x±-^z)£*(xx-^xi;,z) 


1**v 


1-, 


/l  i ku  x'  rl  iku.  v'  . 

J  u  e  lx  du  J  e  ±y  du 


-1 


LX 


_LX_- 


-Ly 


c  /  k  2  *°°  *°° 


(-4r)  /  /  dx'dy'efx— ,z)e*(x±-h&  ,z) 


g-IT  v  2tt 


1L  2  L 


1  i  k II  x 1 

x  d  re  K  ±x  .  2s inky1 
dx'  _i  ik ±x  ky * 


d  sinkx 


811  v^Mk.oodx'  kx' 


dx 


/  ^e(xx-fx;>z)e*(\+fx;,z)dy 


By  the  same  argument  as  in  (i). 


C  i~*  I  \  C  /k  \  ^4  TT  r°°  /  1  i  1  . .  I  _\ 

Sx  x± * z  =  8^2^  ik  k_m  X~2X  ,y"^  ’  'y'  = 


0 


1  .  .1  .  \  rd  sinkx' -i.. 

e*(x+^x  ,y+^y  »z)y'=o^dx'  kx' 


. 

. 
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=  c  rk  i  JLl_r_  / 
8tt  '2^'  i 


sinkx*  8 
kx'  3X 


-ee*dx'] 


Since  the  field  is  assumed  to  vary  slowly  in  space,  the  derivative  of  the  product  of 
the  field  amplitudes,  — ^ee*)  can  be  considered  constant  and  taken  to  be  the 

3X 

value  at  x'=0,  Thus,  after  integrating, 


S~(x,  ,z)  g7T  3xi  (  EE*)| 


x'  i' 


x’=0 


Similarly,  for  the  y  component  of  S, 

C  1  3 


Sy^xx,z^  8tt  ik  ay 


-(ec*^yi  =  o 


By  adding  the  x  and  y  components,  the  transverse  flux  component  is  given  by 


$L  ■  Sxt  +  SyJ 
c  1 


8tt  ik  ^L^E*4'=0,y’=0 


By  using  the  transform  of  the  co-ordinates. 


V_MXj_~2rxi»z)  =  -^e(xx-^X^,z) 
^i^Cx.+ix' ,z)  =  he*  ft  {+h;  ,z) 


(2.1.12a) 


(2.1.12b) 


vj_  =  4v[2 


the  transverse  flux  vector  becomes 


(2.1.13) 


SJ-  8tt  2k^E  x£*  '  e*^5-|x'=0,y '=0  (2.1.14) 

The  variation  of  the  distribution  function  along  a  trajectory  can  be  found  by 
differentiating  eq.  (2.1.9)  with  respect  to  z,  that  is. 


. 


■ 


. 
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Multiply  eq.  (2.1.3)  by  e*and  its  complex  conjugate  by  z  , 


(2.1.15) 


•  *3e  ,  n 

lc  il  +  2k^ic  =  0 


(2.1.16) 


•  3e* ,  z  T,?  * 

-1Eii+  2kV 


=  0 


eq  (2.1.1 5)  becomes 


9f  _  1  k2  iku*x//  Zr>  ^  7o  \ 

32  •  m  X27F-C-Ld'Xxe  X  A(c!le  -  e*V*t) 


3f 

And  from  eq  (2  1.12)  and  eq  (2. 1.13),  r—  becomes 

o  Z 


i  k  u  •  x . 


3z  i  k x  2tt 


11 


'LL 


(2.1.17) 


(2.1.18) 


(2  1.19) 


Integrating  each  term  by  parts  and  using  the  boundary  condition  e(x,y,z)  =0,  one  gets 

x-*--a 

w-^-  oo 

3f  =  k  y 

3z  _  T27Pik— -ocl  X-  -  '± 


-D^(ce1k^)^e*d^] 

Expanding  the  integrand, 


(2.1.20) 


? i  =  -  uAE*>1kUA'  ^ 


From  eq  (21.1  2a)  and  eq  (21.1 2b),  replace  vx  by  \/± , 


3f  -k  2  fCO  .CO  ,2-+<r  .  /-+  -*■  ^  '-*■  -f  Ik 

37  =  4 72-CO  d-  ^  (ux-  Ve  )  +  eIUj_-  ve*)]e 


i  kux  •  xj_ 


"  ice*)e1'ku-L  Xj-d2x_^ 


or 


(2.1.21) 


3f  -*> 

37  =  V 


(2.1.22) 
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Using  the  method  of  characteristics  in  partial  differential  equations  to  solve  eq. 
(2.1.22),  the  corresponding  characteristic  equations  for  eq.  (2.1.22)  are 


dx 

dt 


&  = 
dt 


(2.1.23) 


where  t  is  a  parameter.  On  integrating,  the  solution  to  eq.  (2.1.23)  is, 

x  =  uJXt  +  ci 

y  -  V  +  c2 

2  =  t  +  Co 

3  (2.1.24) 

This  set  of  equations  denotes  a  parametric  curve  on  which  eq.  (2.1.22)  is  satisfied.  In 
other  words,  the  value  of  f  remains  constant  along  this  set  of  curves. 

By  using  the  initial  conditions  for  x,  y,  z,  namely,  at  t=0,  x=XQ;y=y^  z=ZQ^the 
family  of  curves  can  be  written  as 

x  =  x0  +  “lx1 

y  =  y0  +  V 

2  =  z0  +  t 

(2.1.25) 

Through  replacing  t  with  z-Zq  from  the  last  equation  of  (2.1.25),  the  above  equations 
become 

X  —  U  (Z-Zn) 

x  *o  xx  U 


y  -  y0  +  uxy(z*zo^ 


(2.1.26) 


Or,  in  vector  notation, 


(2.1.27) 


- 
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Since  according  to  eq.  (2.1.22),  f  remains  unchanged  along  the  path,  one  can  write 


(2.1.28) 


By  substituting  for  the  arguments  of  f  from  eq.  (2.1.26),  eq.  (2.1.28)  becomes 


(2.1.29) 


The  path  given  by  eq.  (2.1.26)  may  be  regarded  as  a  trajectory  for  energy  packets  with 
the  same  initial  positions  xxq  and  the  same  initial  direction  u^. 

2.2  Tappert's  distribution  function  of  a  coherent  Gaussian  beam 

In  this  section,  the  phase  space  distribution  function  for  a  coherent  Gaussian 
beam  is  derived.  From  this  distribution  function,  the  average  directions  of  the  rays,  beam 
energy  density  and  spot  size  are  deduced. 

Under  the  far  field  approximation,  the  wave  amplitude  of  a  collimated  Gaussian 
laser  beam  before  passing  through  a  converging  lens  at  a  distance  z^from  the  lens5,  is 
given  by. 


where 


On  passing  through  the  lens  which  is  assumed  to  be  thin,  the  field  amplitude  just  after  the 
lens(z=z-j),  becomes(see  Appendix  2) 


(2.2.2) 


where  Eq  is 


■ 


) 
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Sq  is  w(Zq)  ;  f^is  the  focal  length  of  the  lens. 

By  substituting  this  expression  into  eq.  (2.1.9),  the  distribution  function  at  a 
particular  point  (x^y^z^)  becomes 

|£  J2^2_2  k2an  xn  9  k2an.  y 

.  .7.)  =  0 

y 


f(x0,y0,ux,u  z  )  e'V(Vff>V  2 


(2.2.3) 

At  any  particular  location  on  x-y  plane(constant  r),  the  function  has  a  maximum  value  at 


u  =  -  . 

X  f 


0 


U  —  —  r 

y  f 


o 


(2.2.4) 


This  shows  that  most  of  the  radiation  energy  at  location^  y  )  is  associated  with  the  ray 
pointing  towards  the  focus  (see  fig  2.2),  while  the  rest  of  the  radiation  energy  will  be 
spread  around  this  ray  according  to  the  distribution  function  given  in  eq.  (2.2.3).  By  taking 
the  first  moment  of  ffx^y^u^u^Zj),  the  average  direction  of  the  rays  at  the  point  (x^y^z^) 


is 


<  u  > .  DXf(vvvyVduxdUv  _  -xq 
£0(xO’yO’ux’uy’Zi)duxduy  ^ 


<  u  >  =  - 

y  foo  ?co 


££uvf  (xo’y0’uX’uy’zi  ^duxduy  -y0 

CJZ  f(x0>y0’ux’uy,zl)duxduy  f|- 


(2.2.5) 


which  is  the  peak  value  of  f(x  y  ,u.u  ,zj.  Thus, the  average  direction  of  the  rays  is  the 

u  0  x  y  i 

direction  along  which  most  rays  will  follow.  Moreover,  this  direction  is  the  same  as  that 
for  a  single  ray  emerging  from  the  point  (x^.y  )  passing  through  the  focus.  Thus,  the  beam 
focusing  action  can  be  described  in  terms  of  a  collection  of  rays. 


' 


■ 


1  .  r 
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Figure  2.2  Spread  of  rays  at  focal  plane. 
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By  using  eqs.(2. 1 . 1 0),  (2.1.1  1),  the  energy  density  and  transverse  flux  components 
of  the  beam  at  a  point  (^y^)  are  given  as, 

U(x  y  z  )  -  ^3^0  -2r2/aH 

U(x0’y0’zr  8rr  2rr  e  0  0 


— o-^[(u  +t^)2+  (u  2£)2] 

£*y°°e  2  x  f[_  y  f|_  J 


du  du 

X  y 


E0l2e  '2r0/a0 


8 


(2.2.6) 


7T 


c  fv  ,,  ,  ,  .  c  'Eol2k2aO  -2r0/a0 

Sx(  0,y0,Zl)  ~  8tt  2tt -  e 


-k^a2 


X  (Uxi+uyj)duxdu 


C|EJ2  -X 

“87  v  f 


01  -  ^I)e'2r°/a° 


L  'L 

The  distribution  function  from  the  lens  plane  onward  can  be  derived  by 
substituting  eq.  (2.1.26)  into  eq.  (2.2.3) 

-2[(x-u  (z-zJ)2] 

,  ,  U0l2k2ag - f,— 2 - 

f(x,y,ux,iyz)  =  —2^ - e  a0 


(2.2.7) 


-2(y-uw(z-z0))2  -k2a^  x-ux(z-zQ) 


x  e 


l0 


-{  u  +- 


e  2  x  fL 


) 


_k2ao  y-uv(z'2o) 

-r^y— * — 2_)2 

X  e  c  y  tL 


(2.2.8) 


Expanding  the  exponent  and  combining  terms  in  x3,y2,u  ,u  ,  eq.  (2.2  8)  becomes 

X  y 


. 
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f(x,y,ux,uy,z)  = 


I  £  |2p2a2  -2(x2+y2)  -k2a2(z) ,  x  x9 

.  ^O1  k  a0  -  &z1  „ 2^(ux+rfiT) 


where 


x  e 


^Vrfe^ 


(2.2.9) 


z‘zo,,.  4(z'zo)2 


az(z)  -  .§[(1-^)*+  1 


F(z)  =  fL[- 


Z-Zn  4(z-zn) 

tl  k  ao 


(2.2.10) 


(2.2.1  1) 


By  substituting  for  f  from  eq.  (2.2.9)  into  eq.  (2.2. 5), the  average  value  for  u  u  are 

*  y 

evaluated  to  be 


*  ux  »  = 


-x 

FTYT 


(2.2.12) 


-y 

<  U  >  =  r  /  *L  \ 

y  (2.2.13) 

Moreover, by  similar  integration  procedure  as  in  eq.  (2.2.6),  and  eq.  (2.2.7),  the  energy 
density  and  transverse  flux  components  are  found  to  be 


U(xj_,z)  =  -2r2/a2(z) 

OTT 


(2.2.14) 


£L_|  £ 

8tt  1  ^0 


2e-2r2/a2(z) 


(2.2.15) 


where  r2=x2+y2. 

From  eq.  (2.2.10)  the  minimum  spotsize  is  found  to  be 


2  _ 

lmi  n  4f? 

1+Fi- 


(2.2.16) 


1  -  . 
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at  an  axial  distance 


z 


L 

4f^- 


1  + 


(2.2.17) 


From  such  a  distribution  function,  the  beam  size  at  the  focus  reaches  a  limit  which 
is  governed  by  the  wavelength  of  the  beam.  Moreover,  the  beam  is  focused  within  a 
focal  region  with  radius  a  mjn  located  at  a  distance  slightly  less  than  the  focal  length  of  the 
lens. 


2.3  Ray  description  of  a  coherent  Gaussian  beam 

In  this  section,  Tappert's  distribution  function  is  represented  as  a  sum  of  energy 
packages.  Each  of  these  packages  is  associated  with  a  particular  direction  and  location, 
determined  from  a  sampling  of  Tappert's  distribution  function.  These  sampled  values  give 
the  initial  directions  and  locations  of  the  rays. 

As  shown  in  the  previous  section,  the  energy  flux  of  a  laser  beam  can  be 
evaluated  from  the  first  moment  of  the  distribution  function.  This  evaluation  involves  an 
integration  over  a  continuous  variation  of  transverse  directions  and  positions.  However, 
in  using  rays  to  trace  the  propagation  of  beam  flux,  a  finite  set  of  discrete  directions  and 
locations  is  chosen  since  only  a  finite  number  of  rays  can  be  used  for  describing  the 
beam.  These  rays  provide  trajectories  for  the  propagation  of  energy  flux  (macrophotons) 
(see  footnote).  The  total  energy  flux  over  an  area  can  be  found  by  summing  over  all  the 
macrophotons  passing  through  that  area. 

Based  on  this  idea,  the  distribution  function  is  expressed  in  terms  of  a  sum  of 
macrophotons  defined  in  particular  locations  and  directions.  The  distribution  function  at 
the  lens  plane  can  be  represented  as 


The  term, macrophotons, are  used  in  the  work  of  Dudder  and  Henderson.  7The  term 
represents  a  group  of  photons. 


' 


c*  o.!~  ■  k  ** 


where  xxis  the  position  vector  of  a  macrophoton;  UjJs  the  direction  vector  of  the 

macrophoton;  w  •  is  the  amount  of  energy  carried  by  the  macrophoton;  N  is  the  number 
J 

of  macrophotons  describing  the  laser  beam;  62is  a  two  dimensional  delta  function.  By 
substituting  eq.  (2.3.1)  for  f  in  eq.  (2.1.10),  the  energy  density  is  found  to  be 


U  (xx,  z  ^ )  =  gi  Jf(xx,  ux,  Zj)  d2ux 


__1 

8tt 


N 


l  0).62(xx-  Xx.)j62(u_L-  ux.)  d2^ 
j=l  J  J  J 

57.1  .“j6  (Xi'  Xj-j} 

J  =  1 


(2.3.2) 


The  power  flowing  across  an  areaAA  along  the  direction  of  propagation  is 


P  = 


Z  d2xL=  /&ASZ  dxdy 


where  S=Sx+Szand  z  is  the  unit  vector  along  the  direction  of  propagation.  From 
Appendix  1,  the  z-component  of  S  is 

Sz  = 

Therefore,  the  power  is  given  by 


P  = 


z .j )  dxdy 


From  eq.  (2.3.2), 


where  N  denotes  those  macrophotons  lying  within  an  area  A  A. 


(2.3.3) 


As  discussed  previously,  rays  emerge  from  each  point  on  the  lens  plane  as  a 
bundle.  Each  of  these  rays  will  be  assigned  a  particular  direction.  The  choice  of  these 
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directions  is  based  on  a  Gaussian  distribution  of  the  directions  of  rays  around  the 
average  direction  of  the  ray  bundle.  As  will  be  shown  next,  for  such  a  choice,  the  beam 
intensity  profile  at  the  focal  plane  will  also  follow  a  Gaussian  distribution. 

Let  U  be  a  random  variable  representing  the  set  of  transverse  directions  of  rays. 
Recalling  from  eq.  (2.2.5)  that  the  average  transverse  direction  of  a  set  of  rays  emerging 
from  a  point  (x^y^)  at  the  lens  plane  is 


For  each  ray,  the  direction  will  be 


(2.3.4) 


+  A  lTj_ 


(2.3.5) 


where  Aux  is  the  direction  deviation  from  the  average  value.  By  combining  eq.  (2.3.4)  and 
eq.  (2.3.5),  the  ray  direction  is  given  by 


ux= 


-<v  + 


+  Au 


J- 


(2.3.6) 


The  location  of  such  a  ray  at  the  focal  plane  will  be 


*-L  =  uxf,  +  xQi  + 


O' 


=  Au±fL 


(2.3.7) 

According  to  eq.  (2.3.7),  the  ray  location  is  only  proportional  to  the  deviation  of  the  ray 
direction  from  the  average  value.  For  a  ray  with  an  average  direction  <UJL>,  it  crosses  the 
axis  of  propagation  at  the  focal  plane.  Rays  with  directions  other  than  this  will  resume  a 
location  different  from  the  origin.  Since  the  number  of  rays  decreases  in  a  Gaussian 
manner  with  respect  to  the  deviation  of  directions,  the  number  of  rays  which  resume 
locations  away  from  the  origin  will  consequently  vary  in  a  Gaussian  manner. 


2.4  Ray  description  of  an  incoherent  Gaussian  beam 

In  this  section,  the  phase  space  distribution  function  and  the  formula  for  the  beam 
width  of  an  incoherent  Gaussian  beam  is  derived.  The  expression  for  the  distribution 
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function  is  found  to  be  very  similar  to  that  for  the  coherent  case  except  for  a  coherence 
factor.  This  factor  accounts  for  the  degree  of  coherence  of  the  electric  fields  at 
different  locations  at  the  lens  plane. 

In  practice,  the  beam  can  hardly  be  focussed  to  the  diffraction  limited  spotsize 
due  to  instrumental  limitations  and  imperfections.  According  to  Tappert,  these  defects 
can  be  incorporated  into  the  phase  fluctuations  of  the  electric  field  amplitudes  at  the  lens 
plane.  With  such  phase  fluctuations,  the  field  diffraction  pattern  at  the  focus  changes. 

The  energy  distribution  at  the  focus  and  accordingly,  the  spotsize  can  then  be  varied. 

Phase  fluctuations  are  accounted  for  by  considering  an  ensemble  (see  footnote) 
of  fields  at  the  lens  plane.  Each  member  of  the  ensemble  consists  of  electric  fields  over 
the  plane  transverse  to  the  beam.  A  random  phase  is  associated  with  the  electric  field  at 
each  location  on  the  plane.  As  a  result,  the  electric  field  amplitude  used  in  eq  (2.1.9)  is 
replaced  by  the  average  of  the  ensemble  of  field  amplitudes.  Upon  substitution,  the  phase 
space  distribution  function  then  becomes 

<  >  =  X^/"/"d2^elkUA'^e(xI^,z)e*(x^x;)z)> 

where  the  brackets, <  >, denote  ensemble  averages  of  the  bracketed  quantity.  The  energy 
density  and  flux  of  the  field  are  respectively 

<  U  >  =  ir/1/1<f(xL,ux,z)>d2ul= 


< I e I 2> 


?  C 

<  S±>  = 


8tt -r-i 

i  .i 
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IT 


87(i(1uif(xx*ux’z)>d2u. 


0F<(^c*  -  e*$s): 


(2.4.2) 


(2.4.3) 


8tt  2k 


By  applying  this  idea  of  random  phase  to  a  Gaussian  beam,  the  electric  field  amplitude  at 
the  lens  plane  will  be  given  by 

-r2/a0  -ikr2/2fL  if (x,y) 


( x  ,y ,  z  i )  =  EQe 


Ele 


i  T(x,y) 


(2.4.4) 


where  t(x,  y)  is  the  random  phase  of  the  electric  field  at  the  location  (x,y);  eys  the 


An  ensemble  is  a  collection  of  identical  systems 
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-r  -ikr2 
2*0  2fL 

quantity  E^e  e  ,  Although  the  phase  values  are  regarded  as  random,  they  are 
assumed  to  be  Gaussianly  correlated  in  a  small  area  with  radius  L  within  the  beam  cross 
sectional  area.  Within  such  a  region,  the  phase  value  at  any  point  (x,y)  is  given  by 


v(x,y)  =  ^0e‘ 


-(x-xc)2+(y-yc)2 

U- 


(2.4.5) 

where  (x^y^.)  is  the  location  at  which  the  phase  value  is  maximum.  The  phase  values  are 
assumed  to  be  isotropic  in  the  sense  that  the  values  within  a  localized  area  of  radius  L  do 
not  change  regardless  of  the  location  of  the  area  within  the  beam.  Under  such 
assumption,  for  any  two  points  within  the  beam,  the  correlation  function  between  the 
phase  values  is  given  by 

(V*c)2+(yryc):  (x2-x  f  +  (y  -y  ) 

p(x2'xl  -  VV  =  e  12  e - I? - ~ 

sk(vxi)2  +  (y2-yi)2] 


=  e 


=  e 


-r ' 2/2L2 


(2.4.6) 


where 


I"'  =  /(X,  -  x^2  +  (y,  -  y,)J 


1 


The  correlation  function  for  the  phases  at  any  two  points  is  readily  seen  from  eq.  (2.4.6) 
to  be  dependent  only  upon  the  distance  between  them. 

However,  this  correlation  function  can  be  formulated  according  to  the  concept  of 
ensemble  average  as  follows.  Let  the  continuous  range  of  possible  values  of  T  be  \|j 
^2’  ^3  ,etc'  "^"ie  Phase  f°r  e*ectr'c  field  in  each  member  of  the  ensemble  can  take  any 
of  the  values.  Consider  the  phase  values  of  each  member  at  any  two  particular  points 
(x  ,y  )  and  (x^y^  Let  be  the  random  variable  to  denote  the  set  of  phase  values  at 
(x1,y1),  $>2to  denote  those  at  (>^,y  ).  Since  the  phase  values  are  restricted  only  to  the  set  of 
4 >  values  mentioned,  the  values  of  and  $2  will  ,ie  within  the  range  of  the  ^  values  as 
well.  A  joint  probability  distribution  function,  t4J2»x2~xi  ^-y-i  )can  then  set 

up  for  the  product  of  the  random  variables  .  4^  ,  \p  ^  are  the  values  taken  by 

^1,  $2  respectively;and  (x^-x^),  (y^-y^  )  represent  the  spatial  difference  between  the 
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two  points.  Thus,  the  ensemble  average  of  4>i4>2  or  <4*i4)2>  can  be  calculated  in  terms 
of  this  distribution  function  as  follows: 


<$1$2>  =  $2^1  *^2*,x2”xl  *y2~yl  ^1^2 


(2.4.7) 


2 

where  ^  =<  $i  >  or<  $>2  >  because  $1  and  $2  have  the  same  kind  of 

distribution.  Since  as  it  was  mentioned  earlier,  the  range  of  <t>  values  is  the  same  as  that 
for  y  ,  the  average  of  the  product  y(x^,  y-jW(Xp,  y^S  for  a  member  of  the  ensemble  is  the 
same  as  the  ensemble  average  From  eq.  (2.4.6),  the  average  of  ^(x^,  y^Mx^, 
over  all  points  within  the  beam  is  the  correlation  function  for  the  phase  values  at  (x^,y^) 
and  (x^,y2).  Thus,  the  ensemble  average  of  <fi$2 is  equivalent  to  the  correlation  function, 
that  is. 


p(x2-x1>y2-yi)  =  IXV2%1.,(VV-VWVV*2 

1  2  (2.4.8) 

The  distribution  functions  for  and  $2  are  chosen  to  be  Gaussian  so  that 

Tappert's  distribution  function  can  be  simplified.  The  joint  probability  distribution  function 

for  has  the  following  form8 


P4>.,$2^1  »^2;X2"X1  ,y2"yl^ 


2[l-p^(x2-x1>y2-yi)-J^-  2p(x2-x1>y2-yi)^ 


V2  +  % 


0 


2inj;2/l-p2(X2-X^  ,y2-y1 ) 


(2.4.9) 


The  marginal  probability,  F^(  4^)  will  be 
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*^2;x2‘xl  *y2_yl  ^ d^2 
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(2.4.10) 


Hence  the  set  of  phase  values  represented  by  the  random  variable  yx  ,  y)  follows  a 
Gaussian  distribution  as  expected.  This  Gaussian  property  of  $  gives  the  average  value  of 
e  1  to  be 


i  $1 

<  e  1  > 


/2Vip' 
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(2.4.1  1) 


From  eq.  (2.4.4)  and  eq.  (2.1.9),  for  a  member  of  the  ensemble  the  phase  space 
distribution  function  is 


f(4.iU>  ■  ^’zM<?x+  fe>2> 


i[^(xx-  ^)-4'(x]_+  ^x[)] 


It. 


x  e 


(2  4.12) 


Moreover, the  ensemble  average  of  f(xi_,ux,z)  may  be  derived  as  follows.  Since  the  range 

-V  1 

of  values  of  y  is  always  the  same  for  any  point  in  x-y  plane,  the  values  of  T(xj_-  2  xx) 
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and  ¥(xx+  can  be  represented  by  and  respectively.  In  this  case,  the  joint 
probability  distribution  function  given  previously  becomes  P  (^.  ,^«;xiy ' ) 

The  ensemble  average  of  <  e  '®1  ”$2  >  is  given  by 


<e  >  -  ££>  %l»2(t'r*2;xiy,)dhd,*2 


(2.4.13) 


Substituting  for  ,^2;  x1  ,yr)  from  eq.  (2.4.9), 
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( pCx'  ,y')^-^2) 


i($1-$2)  1-p2(x'  ,y' ) 
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i(VV  e2^0  1  1  p  (r  } 


"^1  Tp^  dl  lp^ 
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"dl  ^  ^^2 


<$T$p>  I - ? - 1  T  ]  7 

where  p(r')  =  — -5 —  and  r’  =V  (x-^x'-(x+5x'))2+(y-«y’-(y+5y'))^ 


(2.4.14) 


—  -  S’*  2~  'r  2r  'r ’2^  '  •  ,nte9rating 


eq.  (2.4.14)  with  respect  to  <J;  2,<e  1  ^  *  1  “  *2  ^becomes 


<  e 


1(*!-*2)  _  e,“o(1'p(r'))/2  .-1(l-p(r,))*1-<1|/2*§ 


>  = 


I  e 


d  ]p  « 
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-^(l-p(r')) 


(2.4.15) 


2  i($i-0 

For  large  values  °f  <  0  L 


e  1  c  >  is  small  as  long  as  (1  -  p  (r'»  is  close  to  one. 
From  eq  (2.4.6),  the  Taylor  expansion  of  the  correlation  function  about  zero  is 

■  2 

(2.4.16) 


p(r')  =  1  - 
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By  replacing  p(r’)  in  eq.  (2.4.15)  with  eq.  (2.4.16),  the  phase  factor  in  the  integrand  of 

-4- 

<f(xxUj^z)>,  that  is, 
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<  f(x 


(2.4.17) 


becomes 


<  e 


-r ' 2^q/2L2 


(2.4.18) 

Following  from  this  result,  the  distribution  function  at  the  lens  plane  is  evaluated  to  be 


(2.4.19) 


1 


where  D  = 


For  zero  values  of  ^  ,  D  becomes  one  and  perfect  coherence  of  the  beam  results.  On 
the  other  hand,  for  non-zero  values  of  \Jj  ,  D  is  less  than  one,  and  phase  coherence  will 
be  imperfect. 

By  substituting  for  kD  by  ,  the  distribution  function  at  the  lens  plane 
becomes 


(2.4.20) 


And  at  any  z-plane,  the  function  becomes 


(2.4.21) 


where 


(2.4.22) 


and 


. 


fS) 


’ 


. 


29 


Z-Zn  _  4(z-z0)2 


F(z)  = 
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(2.4.23) 


The  introduction  of  phase  incoherence  into  the  electric  field  amplitudes  at  the  lens  plane 
alters  the  size  of  the  beam  along  the  path  of  propagation  as  well  as  the  focal  distance. 

The  incoherence  factor  D  provides  a  means  to  adjust  the  beam  size  at  the  focus. 

In  conclusion,  the  phase  space  distribution  function  for  a  radiation  field  allows 
one  to  allocate  the  field  energy  into  various  rays  of  which  positions  and  directions  can  be 
defined.  Moreover,  by  using  this  function,  the  directions  of  the  rays  are  distributed  in 
such  a  way  that  a  diffraction  limited  focal  region  can  be  reconstructed  from  the  rays. 
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Chapter  3 

Beam  propagation  in  a  refractive  medium 


In  this  chapter,  the  derivation  of  the  ray  equation  is  carried  out  and  solutions  for 
this  equation  are  given  for  different  profiles.  These  profiles  are  used  to  implement  the 
density  values  calculated  from  Milroy’s  laser  heated  solenoid  model. 

3.1  Derivation  of  ray  equation 

In  this  section,  the  general  equation  for  the  trajectories  traced  by  energy  packets 
(photons)  is  derived. 

Light  propagation  within  a  refractive  medium  can  be  described  in  terms  of  the 
motion  of  quasi-particles  as  long  as  the  angular  frequency,  to  ,of  the  quasi-particle 
varies  sufficiently  slowly  with  respect  to  time  and  space1/2-3.  This  condition  ensures  that 
the  wavepackets  are  localized  in  space.  Equations  of  motion  of  the  wavepacket  are 


dr 

dt 


t  =  3ufE  ,r,t) 
-¥ 

8k 


(3.1.1) 


dl< 


3a)(ic  ,r,t) 


(3.1.2) 


dt 


Eq.  (3.1.1)  can  be  re-expressed  as 
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(3.1.3) 


where 


t  = 


k/k 


(3.1.4) 


and 
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g  dk 


(3.1.5) 
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As  will  be  shown,  eq.  (3.1.1)  can  further  be  expressed  in  terms  of  the  refractive  index 
of  the  medium4.  To  start  with,  eq.  (3.1.4)  is  differentiated  with  respect  to  time,  giving 

fc  =  kn  +  fcn  (3.1.6) 

By  combining  with  eq.  (3.1.2),  the  equation  becomes 

kfi  =  -vrco  -  kS  (3.1.7) 

By  taking  the  dot  products  of  eq.  (3.1.2)  with  k. 


then 
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Let  the  refractive  index  ben(w  ,r,t).  The  spatial  gradient  of  w  is 
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Also,  the  gradient  of  to  with  respect  to  k  is 
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where  k  is  the  unit  vector  of  k  and  =  to 
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(3.1.1  1) 


Substituting  eq.  (3.1.1  1)  into  eq.  (3.1.10),  we  get 
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Combining  eq  (3.1.12)  and  eq.  (3.1.9),  gives 
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In  a  plasma  medium,  the  index  of  refraction  is 
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where  wpe 


and  N(r,t)  is  the  electron  density  (cm*3),  m, 


e 


the  electron  mass.  Because  of  the  extremely  short  time  for  light  to  traverse  the  plasma 
medium,  the  plasma  density  does  not  change  fast  enough  to  give  a  significant  change  in 
the  refractive  index  of  the  medium.  The  plasma  refractive  index  can  be  considered  as 
constant  within  the  time  of  traversing  and  regarded  as  dependent  only  on  space. 

By  substituting  for  n  into  eq.  (3.1.1  1),  the  group  velocity  is  found  to  be 


Vg  =  n(^)c 


(3.1.14) 


Eq.  (3.1.13)  thus  becomes 


•  r  t~*  i 

fi  =  c  [  vrq  -  (n  •  vrr)  )n  ] 


(3.1.15) 


By  multiplying  both  sides  by  c,  which  is  the  velocity  in  the  medium, 


and  using  the  expression  for  group  velocity. 


then 


But, 


Hence, 


2 


(3.1.16) 
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According  to  the  above  equation,  as  long  as  the  refractive  index  is  spatially 
known  at  the  instant  the  rays  traverse  the  medium,  ray  paths  can  be  traced. 


3.2  Adoption  of  co-ordinate  system 

In  this  section,  the  choice  of  co-ordinate  systems  used  for  solving  the  ray 
equation  is  discussed. 

The  beam  behaviour  within  a  cylindrical  plasma  column  is  traced.  Due  to  cylindrical 
symmetry  of  the  column,  cylindrical  co-ordinate  system  is  adopted.  The  ray  equation  can 
be  expressed  into  its  components  as. 


d2r  _  c2  3n2(r,z)  ,  *9 

3F  '  T  n  - L  +  re* 


(3.2.1) 


d(r20) 

dt 


0 


(3.2.2) 


=  si  3n2(r>z)  13.2.3) 

dt2  2  3z 

where  ©  is  the  angular  velocity  of  the  ray.  The  refractive  index  is  taken  to  be  azimuthally 
independent.  Eq. (3.2.2)  indicates  that  the  angular  velocity  component  of  the  rays  is  a 
constant  of  motion  due  to  the  assumption  of  the  azimuthal  independence  of  the 
refractive  index.  Angular  momentum  of  the  ray  is  thus  conserved. 

In  certain  density  profiles  used  later  in  this  work,  it  will  be  more  convenient  to 
express  the  velocity  components  in  the  Cartesian  co-ordinates  for  solving  the  ray 
equation.  These  components  are  given  by 


d2x  _  c^_  3f[2(x,y,z) 
dt2"  2  3x 


(3.2.4) 


d2y  =  ci  an2(x,y,z) 
dt2  2  9y 


d2z  _  3n2(x,y,z) 

dt7  2  3z 


(3.2.6) 


' 
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3.3  Choice  of  density  profile 

In  this  section,  the  ray  equation  is  solved  for  different  refractive  indices  which 
are  determined  from  the  density  of  the  plasma  confined  in  the  solenoid.  The  behaviour  of 
the  ray  is  discussed  accordingly. 

In  solving  the  ray  equation  within  a  plasma  region,  it  is  necessary  to  know  the 
spatial  variation  of  the  refractive  index  in  that  region.  The  refractive  index  for  a  plasma  is 
given  as 


where 


(3.3.1) 


u2  ft)  =  4*N(r)e2 
pev  '  m 

e 

N(r)  is  the  plasma  density  at  a  distance  r  from  the  origin  ;Ncis  the  critical  density, 


me“2 
4  we2 


a)  is  the  angular  frequency  of  the  laser.  The  refractive  index  at  any  point  is  thus 
determined  directly  from  the  plasma  density  at  that  point. 

In  McMullin  and  Milroy's  simulation  work, the  plasma  region  is  divided  into  meshes 
by  means  of  a  two-dimensional  grid  structure.  The  characteristics  of  the  plasma  such  as 
energy,  temperature  and  density  are  evaluated  at  the  centre  of  the  grid  cells.  These 
physical  quantities  are  hence  known  only  at  discrete  positions.  In  order  to  trace  the  beam 
trajectory  within  the  plasma  simulated  by  the  MHD  code,  a  knowledge  of  the  density 
variation  between  any  two  adjacent  cells  is  essential.  Moreover,  if  the  density  variation  is 
known  to  be  a  continuous  function  of  position,  the  ray  equation  can  be  solved  to  give  a 
continuous  solution  for  the  path  between  two  adjacent  grid  cells. 

Since  plasma  densities  are  only  evaluated  at  the  centres  of  the  grid  cells, 
appropriate  continuous  functions  have  to  be  used  to  describe  the  density  variation 
between  adjacent  ones.  The  choice  of  such  functions  is  deduced  from  the  physical 
behaviour  of  the  plasma  when  heated  by  means  of  a  laser  beam.  These  functions  give  a 
profile  description  of  the  plasma  density  in  the  corresponding  region. 


i 
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Density  profiles  which  are  functions  of  the  square  or  inverse  square  of  radial 
distance  are  used  since  they  can  give  a  suitable  description  for  the  density  hollow 
created  by  a  laser  beam  within  the  plasma  column.  Such  a  choice  also  enables  the  ray 
equation  to  be  solved  analytically.  The  density  profiles  are  assumed  to  be  azimuthally 
independent  as  a  result  of  cylindrical  symmetry  of  the  plasma  column. 

Four  different  kinds  of  density  profiles  are  adopted  in  accordance  with  the  radial 
density  changes  at  adjacent  grid  cells.  They  are  as  follows: 


(1) 


(2) 


(3) 


(4) 


dNM>  0,^I>  0,  N(r).N0(l  +  £) 


dr  dr 

j2 


lo 

,2 


Mrl>  0,^<  0,  N(r)  -  Nl(l  -  J-) 


dr 


<  0,  0,  N(r)  =  N,(l  -  £) 


dr^ 


Mri  <  0>  £nXtX  <  0>  N(r)  s  N3d  +  £ 


(3.3.2) 


(3.3.3) 


(3.3.4) 


(3.3.5) 


These  profiles  are  fitted  into  corresponding  regions  wherever  the  density  differences 
satisfy  the  conditions  for  and  ~~ ~ 

The  suggested  profiles  are  used  to  approximate  various  regions  of  the  laser 
heated  plasma  column  (fig.  3.1).  The  density  distribution  across  the  column  can  hence  be 
approximated  by  segments  of  continuous  functions.  The  core  part  of  the  column  is 
described  by  a  parabolic  well  corresponding  to  a  density  hollow  created  by  laser  heating 
(profile  #1  in  fig.  3.1)  profile.  Further  from  the  core,  the  plasma  density  reaches  a 
maximum  due  to  the  accumulation  of  plasma  particles  resulting  from  radial  expansion  of 
the  plasma.  The  region  between  this  density  maximum  and  the  parabolic  well  is  simulated 
with  profile  #2  in  fig  3.1.  Beyond  this  point,  the  plasma  density  decreases  gradually.  This 
region  is  approximated  by  profile  #3  in  fig.  3.1.  On  getting  closer  to  the  wall  of  the 
solenoid,  profile  #4  in  fig.  3.1  is  used.  The  density  distribution  across  the  column  is  thus 
described  by  segments  of  continuous  functions. 

With  the  refractive  index  given  as  in  eq.  (3.3.1),  (r  becomes  the  radial  distance 
only,  because  of  azimuthal  and  axial  independence),  the  ray  equation,  as  derived  from  eq 
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N(r) 


radius 


Figure  3.1  Radial  density  profile  of  the  column 
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(3.2.1),  eq.  (3.2.2)  and  eq.  (3.2.3),  becomes 

d2r  _  c2 
dt7  "  2Nc 

d(r2g)  =  o 
dt  u 

d2z 

=  0  (3.3.8) 

Eq.  (3.3.7)  and  eq.  (3.3.8)  can  be  solved,  with  given  initial  ray  conditions,  for  the 
angular  velocity  and  the  axial  position.  In  what  follows,  the  solutions  of  the 
differential  equation  for  the  radial  position  in  different  profiles  are  discussed 
as  follow: 


dN  (r ) 

dr 


+  re2 


(3.3.6) 


(3.3.1)  Parabolic  radial  profile 


This  profile  is  applied  to  the  regions  between  two  adjacent  grid  cells 


where 


dN(r) 

dr 


>0  and 


j2N(r) 

"dr2 


>0(region  1  of  fig.  3.1).  The  parabolic  profile  is 


N(r)  =  Nq(1 


♦£>- 

a0 


Nq(1 


x2*  y2 


) 


(3.3  1.1) 


where  N^.a^  are  parameters  determined  from  the  boundary  conditions  of 
N(r);and  r  is  the  radial  distance.  This  profile  applies  frequently  in  the  region 
near  the  axis  of  the  plasma  column.  In  Cartesian  co-ordinates,  the  equations  of 
motion  are 


d2x 

c2  Nnx 

,  0  -  q2 

(3.3. 1.2) 

dtz 

a0Nc 

<4  = 

dF 

_£v . 

(3.3. 1.3) 

d2z  = 
dt2 

0 

(3.3. 1.4) 

where 


ft2  = 


C2N0 


The  solution  for  these  equations 


is 


that  of  a  simple  harmonic  motion.  With 


initial  conditions, 


■ 


' 
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t=o,x=v=y0.*=y=y0 


Vos(su)  +  Tr 

(3.3. 1.5) 

yD 

yQcos (fit)  + 

sin (nt) 

(3.3. 1.6) 

-ftXg  sin(^t)  + 

• 

Xq  cos(ftt) 

(3.3. 1.7) 

-ftyQ  si n (ft t )  + 

• 

yQ  cos (ft t ) 

(3.3. 1.8) 

r2  v2 

+  Bsin(2ftt  +  $) 

(3.3. 1.9) 

where 


$  = 


2  2 

(-  - 

tan'1  [-2  ^ 


B2  =  (■ 


0 


,xoVVo, 

'  ft  ' 


Or,,  .  ,xoWo 


2n- 


r)2  +  (■ 


ft 


■2  =  Z2 


Or 


*/  2 


=  X0  +  >0 


r2  —  +  v2 

0  0  y0 

The  sinusoidal  variation  of  the  ray  path  with  time  indicates  that  the  ray  is 
trapped  within  the  medium.  A  real  solution  for  r2  is  guaranteed  when  B<r^/2+v: 
/2  ft  The  last  condition  will  depend  on  the  initial  conditions  of  the  ray.  A 
negative  solution  for  r2  indicates  that  the  ray  is  not  launched  at  the  right 
position  or  direction  and  that  the  ray  cannot  go  through  the  medium.  From  eq. 
(3.3. 1.9),  the  maximum  and  minimum  radial  distances  are  given  by 


■ 
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.2  _  0 


Or 


r  ~  2~  +  YY1  —  B  (+  ^or  maximum>  “  for  minimum) 


(3.3.2)  Inverse  parabolic  increasing  profile 

This  profile  is  used  wherever  the  density  difference  between  any  two 
adjacent  grid  cells  satisfies  the  conditions  >0and—^^r^<0.  The  region 

defined  within  radius  rj  ,  r2  (region  2  of  fig.  3.1)  can  be  approximated  by 
this  profile.  The  profile  is 

N(r)  -  N-| ( 1  "  77)  ,3.3.2.11 

with  r^O.  N-j,  a-j  are  constants  determined  from  the  boundary  conditions  of  N(r) 
in  the  region  under  consideration.  On  substituting  for  N(r)  from  eq.  (3.3.2. 1)  into 
the  ray  equation,  the  solution  expressed  in  cylindrical  co-ordinates,  is 


d2r 

dt2 


c2N 


n 

N  rd 


c2N,a2  , 


(3.3.2. 2) 


r11-" 


(3.3.2.31 


(3.3.2.41 

With  the  initial  conditions,  t=0,  r=r^  ,0=0q,  p=r^  0Q-vr=vor  '  the  radial  velocity 
is  found  to  be 


f2  -  (£)2  -  V2 


c2a2Ni  , 

Or  +  (p2  *  ~H. ! - )[TJ 


1 


) 


(3.3.2.51 


■c  0 

By  integrating  this  equation  with  respect  to  time,  the  expression  for  the  radial 
position  can  be  obtained.  Cases  for  outward  radial  acceleration  and  inward 
radial  acceleration  are  considered  as  follows: 


fc- 


' 
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(i)  For  the  case  of  outward  radial  acceleration,  the  quantity 

c2a2,  N, 

- — L  is  positive.  The  corresponding  solution  for  the  equation 


is 


t  = 


N 


0 


r2v2  +(p - AJL) 

0  Or  N  1 


i  c2a?N->  c2a?N-, 

c2i^[±f2(^V(p2“ll^))'r0(p2~NUL) 


r2  v  2 
r0v0r 


c2a2N" 

r0V0r+(p2— NTI) 


(33.2.6) 


for  vnv,>0,  t  takes  the  positive  root;  for  Vq^<0,  t  takes  the  negative  root.  The 


'Or 

radial  distance  is  given  by 

1 


r  = 


i 


c2alNl  l  c2a2N,  2 

c^(p2--N71)^4(rgv§r+P2--irJ-) 

1  I  \  c  0  c 


x  (t±- 


r3v 
0  Or 


c^rT 

r2  v2  +d2  — 
r0  Or  p 


.)3] 


2 

2 


Nc 

With  an  initial  inward  radial  velocity,  the  ray  will  move  towards  the  axis  of 
propagation  until  it  reaches  a  minimum  radial  position  where  it  is  refracted 
away  from  the  axis.  From  eq.  (3.3.2. 5),  one  can  deduce  that  the  minimum  radial 
position  of  the  ray  is 


r  .  =/  [ 

min  '  *- 


2  c2alNl 

ro(p2-^rJ-> 

_  c  -i 

c2a|N, 


(33.2.7) 


c2a?N 


(ii)  For  the  case  of  inward  radial  acceleration,  that  is  p 
the  square  of  radial  position  will  be  given  by 


2 _ 


11 


N& 


<  0, 


>2  =. 


~ - c2a?N,'  t  71  (r0v0r'lp2' 


c2a?N^  2 


T 1 


rOvOr'lp2-¥ 


11  ,  ’0 


N 


D 


(3.3.28) 


r3v 

r0v0r 


r2v2  -In2_. 

r0  Or 


2  c2a2N, 

c2a?N“  ^  'rolp2'"¥ 


ri 


N 


x  (t  ± 
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2  c2afNl 

When  rQvQr  ”  |P — — - 1  >0  and  r  is  <  0,  the  solution  of  r  is  imaginary. 


This  implies  that  rays  of  which  the  initial  locations  and  directions  satisfy  these 
conditions,  cannot  penetrate  this  region. 

(3.3.3)  Parabolic  decreasing  radial  profile 

This  approximation  is  used  in  regions  where  the  spatial  density 
variation  follows  the  relations  dN(r)/dr<0  and  d2N(r)/drJ>0  (region  3  of  fig.  3.1). 
A  possible  region  in  the  density  well  is  beyond  where  the  plasma  density 
reaches  its  maximum  (region  bounded  by  the  radii  r2  and  r3  in  fig.  3.1).  The 
density  profile  is  expressed  as 


2 


(3.3.3. 1) 


Solution  for  the  ray  path  expressed  in  Cartesian  co-ordinates,  is 


(3.3.3. 2) 


(3.3.3.31 


x  =  x0cosh(ftt)  +  cx0sinh(nt) 
y  =  yQcosh(ftt)  +  ay0sinh(f2t) 


(3.3.34) 


(3.3.3.51 


(3.3.3.61 


where  x^are  the  initial  positions  of  the  ray;  r^  =  x^+y^v2  -  *q+Yq'' 
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c2N, 


fi 


2  = 


N  a^^n'^n31"6  velocities, 

c  2  u  u 

Depending  on  the  initial  conditions  of  the  ray,  the  ray  will  traverse  in 
this  region  radially  inward  or  radially  outward.  If  all  terms  in  eq  (3.3.3  6)  are 
positive,  the  radial  distance  will  increase  directly  with  t.  The  ray  will  leave  the 
region  gradually  and  will  not  be  trapped,  r 2  will  become  negative  according  to 
the  initial  ray  conditions.  A  negative  value  for  r2  indicates  that  the  ray  may 
launch  into  the  plasma  region  such  that  it  is  reflected  off.  When  the  ray  goes 
radially  inward,  the  minimum  radial  distance  that  the  ray  will  approach  is, 

2  -  T(F'  V  1  2T  ’  Zn7'  "  '  a  '  (3  3.3.7) 

which  can  be  seen  to  be  dependent  on  the  initial  position  and  velocity  of  the 

ray. 


d2N(r) 

dr2 


(3.3.4)  Non-parabolic  decreasing  radial  profile 

dN  ( r ) 

This  profile  fits  into  the  region  where  the  relations  ^  <0  and 

<  0  hold(region  4  of  fig.  3.1).  The  density  profile  in  the  region  is 

given  as 


a" 

N(r)  =  N3(  1  +  p)  (3.3.4. 1 ) 

with  r£0.  By  using  cylindrical  co-ordinates  and  initial  conditions  v^  ,r  ,  the 
radial  location  of  the  ray  trajectory  is  given  by 


r  = 


1 


(r£v2  +p2+- 
'  0  or  K 


c2a2N~  •<  c2a£N~  2 

Tzmri1  ro{p2+~ir1)+7f{' rovor+p2+-fr~) 

J  C  U  L 


N 


X  (t  ±- 


r  3  v 

r0  Or 


r0V0r+p2+ 


c2a2N3" 


-)2] 


N 


(3.34.2) 
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Through  comparing  the  two  expressions  for  r  given  by  eq.  (3.3  4.2)  and  eq. 
(3.3.2.61,  it  can  be  noted  that  only  the  term  (p:+c2a|N3/Nc)  is  changed  Similar 
results  can  thus  be  concluded  for  the  inward  radial  velocity  case.  The  ray  will 
approach  its  minimum  radial  distance,  according  to  the  relation, 

c2a|NQ 

ro(p2+ir1) 

r2  = _ C  _ 

min  c2alNT~ 

r2v2  +n2+ - — _ — 

VOr  p  N 

c  (3.3.4.31 

The  adoption  of  the  four  profiles  for  describing  the  plasma  density  in 
the  column  is  initiated  from  the  density  well  shown  in  fig  3.1.  Regions  within 
the  plasma  column  are  matched  to  the  corresponding  density  profiles 
according  to  the  sign  of  the  density  gradient  and  the  derivative  of  the  density 


gradient  within  that  region.  The  density  gradient  conditions  >q  or  <0  anci 


dN(r) 

dr 


d2N ( r) 

the  derivative  of  the  density  gradient  ^p-LLZ>0or  <0  determine  the  type  of 
density  profiles  to  be  used  in  computing  the  ray  trajectories.  In  previous  work5' 
6 '  7,only  parabolic  profiles  were  assumed  within  the  column.  The 
corresponding  ray  path  is  sinusoidal  as  was  discussed  in  section  (3.1). 

However, in  McMullin  and  Milroy’s  MHD  code,  the  plasma  density  profile  is 
arbitrary  and  determined  only  through  a  self-consistent  set  of  fluid  equations. 
Both  parabolic  and  non-parabolic  profiles  are  used  for  simulating  the  density 
distribution.  Such  choice  eliminates  the  use  of  numerical  methods  to  solve  the 
ray  equation.  However,  corresponding  parameters  for  various  profiles  are 
needed  to  be  evaluated  for  each  set  of  density  values  calculated  from  the 
MHD  code.  The  axial  density  variation  is  assumed  to  be  slow  so  that  there  is  no 
significant  change  over  one  axial  grid  distance.  This  assumption  is  valid  as  long 
as  there  is  no  abrupt  axial  density  change  encountered,  otherwise  axial  density 
variation  has  to  be  included. 


Chapter  4 

Laser  power  absorption  and  ponderomotive  forces 

The  deposition  of  laser  energy  within  the  plasma  medium  is  discussed  in  this 


chapter.  The  ponderomotive  force  due  to  high  laser  intensity  is  considered  as  well,  in 
section  4.1,  the  distribution  of  power  among  rays  is  discussed,  and  in  section  4.2  an 
account  of  the  absorption  mechanism  involved  in  the  energy  transfer  process  is  given. 
Moreover,  the  ponderomotive  force  due  to  inhomogeneous  laser  intensity  distribution  is 
considered  in  section  4.3. 

4.1  Power  carried  by  individual  rays 

In  this  section,  methods  of  distributing  the  radiation  power  among  the  rays  are 
briefly  discussed. 

In  a  cylindrical  co-ordinate  system,  the  radial  power  of  a  Gaussian  beam  at  a 
radial  distance  r,  can  be  obtained  by  integrating  the  intensity  distribution  l(r)  over  the 
cross  sectional  area  with  radius  r.  From  eq.  (2.2.2),  the  amplitude  of  the  Gaussian  beam 
across  a  transverse  cross  section  at  the  lens  plane  is 


(4.1.1) 


The  intensity  of  the  beam  transmitted  through  an  area  of  radius  r  is 


r 


I(r)  =  2*/  U(r',  z0)|Vdr'I0 


=  I  (1  -  ) 


(4.1.2) 


where  Iq  is  the  total  intensity. 

The  power  transmitted  through  this  area  is 
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0  (1  -  e  “2(20)  ) 


(4.1.3) 


This  power  can  be  distributed  among  the  rays  simulating  the  beam  by  using  the 
distribution  function  derived  for  an  incoherent  Gaussian  beam  (eq.  2.4.19),  namely. 


<  f(x,y,ux,y  ,z)  >  = 


EJ2k2D2a2 


-2(x2+y2) 


■0 


0 


lo 


ITT 


x  e 


_ k2D2a2 

-T-4t(ux+pfiT)2+(u/FfiT)2] 


(4.1.4) 


The  energy  density  associated  with  a  ray  at  a  location  (x,y)  and  a  direction  (u  ,u  )  is 

X  y 

evaluated  from  eq.  (4.1.4)  and  is  given  by  J<f>dUj_  .  Power  transmitted  along  the  axial 

direction  is  given  by  — — 

8tt 

ray  can  be  determined  directly  once  its  position  and  direction  are  known.  The  set  of  rays 
used  for  describing  the  beam  can  be  determined  in  two  ways.  Firstly,  the  positions  and 
directions  of  the  rays  can  be  preset  so  that  the  ray  density  is  constant  across  the  beam. 
The  associated  power  carried  by  each  ray  is  then  evaluated  from  eq  (4.1.3)  in  terms  of 
its  predetermined  position  and  direction.  Alternatively,  the  rays  can  be  assumed  to  carry 
equal  power.  The  power  density  within  a  certain  beam  area  is  determined  by  counting  the 
number  of  rays  within  the  area.  Locations  and  directions  of  the  the  rays  can  be 
determined  according  to  a  random  Gaussian  distribution  which  will  be  discussed  in 
section  5. 1. 


J<f>duj_, where  c  is  the  speed  of  light  The  power  carried  by  a 


4.2  Derivation  of  the  absorption  coefficient  along  a  ray 

In  this  section,  the  coefficient  of  absorption  in  a  plasma  along  unit  length  of  the 

rays  is  derived.  The  power  absorbed  along  a  ray  is  then  evaluated. 

For  the  case  of  laser  heated  solenoid,  the  plasma  absorbs  laser  energy  through 

the  process  of  inverse  Bremsstrahlung.  This  process  dominates  over  other  laser  heating 

mechanisms(see  footnote)  because  laser  intensity  is  in  the  order  of  less  than  1 011—  1 012 

W/crrF  which  is  not  strong  enough  to  initiate  other  heating  processes. 

From  Johnston  and  Dawson\the  absorption  coefficient  per  unit  length  for  this 

process  for  an  incident  monochromatic  beam  wave  with  a  wavelength  of  10.6yrtm,  is 

Anomalous  ion  and  electron  heating  resulting  from  parametric  excitation  of  plasma 
instabilities 
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where 


Ka 


8.67x10'30  Ze2m2lnA 


tV 

e 


OJ 


4-) 


03 


(4.2.1) 


The  absorption  coefficients  along  ray  paths  can  be  found  by  considering 
absorption  on  small  segments  of  the  trajectory.  This  is  explained  as  follows.  For  a  ray 
segment  of  length  ds,  the  associated  absorption  coefficient  within  a  grid  celKsee 
footnote)  is 


dK  =  K  ds 

3 


(4.2.2) 


Also  ds  is  the  length  of  the  trajectory  travelled  by  a  photon  in  a  time  dt,  at  a  velocity  n(r)c 
(n(r)  is  the  refractive  index  of  the  medium).  The  equation  can  thus  be  written  as 


dK  =  K  n(r(t))c  dt  (4.2.3) 

a 

where  r(t)  is  the  radial  position  of  the  photon  at  time  t.  The  power  transferred  to  the 
medium  within  this  segment  ds  is 

dP(r,t)  =  -Kan(r(t))cP(r,t)dt  (424) 

Since  the  time  interval(dt)  for  the  beam  to  propagate  along  a  distance  ds  within 
the  plasma  column  is  relatively  short  (10*8  sec.  )  compared  to  the  pulse  width  of  the 
laser(in  the  order  of  10~6  sec.),  the  beam  power  from  the  laser  can  be  regarded  as 
constant  over  the  time  (dt)  for  traversing  the  distance  ds.  The  amount  of  power 
left,Fj-, after  a  time  dt  is 


The  plasma  column  is  divided  into  tiny  volumes  by  a  mesh.  Each  volume  is  termed  as  a 
grid  cell. 
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ff  ■  -  f  K  n(r(t'))cdt 

P.  n  ’V  o 
1  U 

dt 

Pf(r0+dr,t+dt)  =  P.(r0,t0)e  { 


Kan(r(t;)  )cdt 1 

G 


(4.2.5) 

(4.2.6) 


where  P ^  (r^  ,tg)  is  the  beam  power  at  time  t^and  location  r^  .Within  the  time  interval  dt, 
the  input  beam  power  is  assumed  to  be  constant  with  time  and  has  the  value  P-j  (r^,  tg). 
The  amount  of  absorbed  power  is 


Pabs  Pi  ^ r0 ’ ^0 ^  ~  pf (ro+dr»‘to+dt^ 

dt 

-/  ^an(r(t/)  )cdt ' 

=  Pi(r0,t0)[  1  -  e  o  ] 


The  beam  loses  APg^g  watts  for  each  traverse  of  the  distance  ds. 


(4.2.7) 


4.3  Calculation  of  ponderomotive  forces 

In  this  section,  the  ponderomotive  force  is  derived  according  to  Chen’s  analysis-. 

As  a  laser  beam  is  focused  onto  a  plasma  medium,  the  intensity  at  the  focal  region 
is  extremely  high.  The  electromagnetic  field  which  is  proportional  to  intensity  rises 
significantly.  The  consequent  effect  is  that  the  field  imposes  a  strong  Lorentz  force  on 
the  particles  leading  to  a  charge  separation  which  bundles  up  electrons  and  ions  into 
discrete  regions.  This  force  acting  on  an  electron  ,with  mass  m6/  located  at  r  is 


=  "e[  ^  +  c*  x  B(^  ]  (4.3.1 

where  E(r)  is  the  electric  field  of  the  radiation  ;  v  is  the  velocity  of  the  electrons.  With  an 
incident  electric  field  given  as 


E(r,t)  =  Es(r)cos(u)0t) 


(4.3.2) 


where  <dq  is  the  angular  frequency  of  the  incident  wave  E^(r)  is  the  electric  field  with 
spatial  dependence  only.  The  corresponding  magnetic  field  is  found  from  Maxwell  s 
equation 
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B(r)  =  —  v  x  E  (r)sin(u>nt) 

^0  s  u  (4.3.3) 


To  the  first  order,  the  force  on  an  electron  at  location  r  can  be  evaluated  by  taking  E  at 
the  initial  position  r  ,  and  neglecting  the  term  v  x  B  since  it  is  smaller  than  E  by  a  factor 
of  v/c.  The  force  is 


me(&)  =  -et(V  (4, 

On  integrating,  and  using  the  initial  conditions  that  the  electron  has  a  zero  velocity  and 
locates  at  the  maximum  amplitude  of  oscillation,  the  first  order  velocity  perturbation  is 


— —  E  (r)sin(u>nt) 
m  icA  s  u 


(4.3.5) 


and  upon  further  integration,  the  first  order  displacement  perturbation  of  the  electron 
from  the  position  r^  is, 

Sr(1)  =  /v(1)  dt  =  — Vl  (r)cos(u0t)  (4.3.5a) 

e  u 


By  using  the  velocity,  and  a  first  order  expansion  of  E(r)  in  eq.  (4.3. 1)  about  the  electron 
initial  position^,  a  second  order  approximation  of  the  force  is  found  to  be 


m 


,(|)(2)  -  -e[(6?  •  y)E(?0)  +^(1) 


x  B(rQ)] 


(4.3.6) 


where  v2  is  a  second  order  correction  term  to  velocity  v.  By  taking  the  time  average  of 
eq.  (4.3.6),  and  using  eq.  (4.3.3),  (4.3.5),and  (4.3.5a), the  average  non-linear  force  on  an 
electron  is  thus 


dv 

Vdt 
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(4.3.7) 


^  "T  “T 

The  E  x  v  x  Ec  force  component  (which  is  equal  to  E$  x  k  x  Es  upon  Fourier 
s  s 

transform)  acts  along  the  direction  of  propagation  and  causes  both  electrons  and  ions  to 
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move  along  the  direction  of  propagation,  while  the  (E_  •  V  )EC  denotes  the  force 
component  acting  along  the  direction  of  the  electric  field  vector.  This  force  pushes  the 
plasma  to  bundle  up  in  a  direction  perpendicular  to  the  direction  of  propagation.  As  a 
result,  the  formation  of  a  low  density  region  along  the  column  is  enhanced.(see  footnote) 
This  causes  a  change  in  the  refractive  index  which  will  cause  the  beam  to  be  focused  and 
defocused  as  it  propagates  within  the  medium.  Using  the  vector  identity, 


ie.  =  (E  •  v  )E  +  E  x  v  X  E, 


2  s 


the  ponderomotive  force  per  unit  volume  is  given  by  Chen, 
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(4.3.8) 
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where  w2g  =  — - -  ;  me  is  the  electron  mass^is  the  plasma  density.  However 


the  intensity  of  the  radiation  field  is  also  given  by 


I  = 


r)c|EA(r0) 


8tt 


(4.3.9) 


where  rj  is  the  index  of  refraction  of  the  medium. 
The  ponderomotive  force  thus  becomes 
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(4.3.10) 


Due  to  cylindrical  symmetry,  there  is  no  azimuthal  intensity  gradient  for  the  beam 
within  the  plasma.  So  only  radial  and  axial  components  of  the  ponderomotive  force  have 
to  be  considered.  The  relevant  components,  in  cylindrical  co~ ordinate  system,  are 

I _ 

(4.3.1  1 


(F  )  = _ _ <L(_!)r 

^rNL  V  2u)q  Sr'nc' 


Plasma  heating  is  the  major  factor  for  this  formation 
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<FNL>z 


=  .zee 
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-i(-L  )z 

3zvnc  ' 


(4.3.12 


A  A 

where  r,  z  are  unit  vectors  in  radial  and  axial  direction  respectively.  These  force 
components  can  be  known  once  the  spatial  variation  in  the  beam  intensity  is  known. 


Chapter  5 

Computational  method 


Numerical  treatment  of  the  analytical  results  in  chapters  three  and  four  are  dealt 
with  in  this  chapter.  Program  packages  are  designed  for  computing  ray  distributions, 
density  gradients,  ray  paths  within  plasma  medium,  power  absorption  along  the  paths  and 
ponderomotive  forces.  These  packages  are  designed  to  replace  the  laser  profile  routine 
used  in  the  magnetic  flux  shell  code. 

5.1  Ray  distribution  package 

In  this  section,  the  distribution  of  locations  and  directions  of  the  rays  is  deduced 
from  the  distribution  function  for  a  coherent  gaussian  beam.  Ray  locations  and  directions 
are  distributed  according  to  a  Gaussian  distribution  function. 

Beam  propagation  is  simulated  in  terms  of  bundles  of  rays.  From  the  discussion  in 
section  (4.1),  rays  can  be  either  chosen  to  carry  power  which  varies  according  to  a 
Gaussian  distribution  or  to  carry  equal  power.  For  rays  carrying  different  power, the 
locations  and  directions  must  be  predetermined.  However,  for  rays  carrying  equal 
power, the  locations  and  directions  are  so  chosen  that  the  number  of  rays  varies 
according  to  a  Gaussian  distribution  function.  This  scheme  is  explained  as  follows. 

The  initial  power(PflVg  )  for  each  ray 's  just  the  beam  power(F^)  at  the  lens  plane 
at  time  t  averaged  over  the  total  number  of  rays  (N  q  ).That  is, 


(5.1.1) 


From  Tappert's  phase-space  distribution  function  for  an  incoherent  beam  at  the 
lens  plane, namely, 


f(x,y,ux,u  .z-j)  = 


(5.1.2) 


the  beam  power  density  evaluated  at  the  point  (x,y)  is 
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(5.1.3) 

If  there  are  N(x,y)dxdy  rays  passing  through  an  infinitesimal  area  dxdy  at  location  (x,y,z^ ), 
the  beam  power  can  be  expressed  as 


P(x,y)dxdy  =  PavgN(x,y )dxdy 


(5.1.4) 


By  comparing  eqs.(5. 1.3)  and  (5.1.4),  the  number  density  of  rays  passing  through  the 
point  can  be  seen  to  be  given  by 


c  tn 

N(x,y)  =  - 5 


z2i2ip/y  ^![(Ux+  ^(u  +  ^ 

oTp  e  -1-7  e  L  ^  L  du  du  dxdy 

8  avg  x  y  y 


cE 


0 


|  2k2D2a2 
8tt  P 

avg 


-k2D2c 


0 


1  1 


0 


(u  +**) 

v  X  f  ' 


72 


TT 


L  du 


-k2D2c 


1  1 


0 


72 


TT 


(%+/-) 2 

y  L  du  ] 

yJ 


dx  dy 


(5.1.5) 


The  expression  shows  that  the  total  number  density  of  rays  is  distributed  gaussianly  with 
respect  to  locations  and  directions. 

In  actual  simulation  of  the  laser  beam,  a  set  of  rays  is  chosen  such  that  they  are 
gaussianly  distributed  over  the  lens  plane.  Moreover,  the  directions  of  the  rays  are  so 
selected  that  the  number  of  rays  will  be  gaussianly  distributed  about  the  direction 
pointing  towards  the  focus. 

Such  choice  is  achieved  by  using  a  normal  random  deviate  generator.  The 

generator  will  generate  numbers  which  are  normally  distributed.  A  set  of  such  numbers  is 

designated  to  each  of  the  locations  x,  y  and  directions  u  ,  u  .  For  the  x,  y  locations,  the 

x  y 
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generated  numbers  are  scaled  according  to  the  laser  beam  width  to  give  actual  spatial  ray 
locations.  For  the  directions,  ux,  u^ ,  the  generated  numbers  nx,  n^  are  transformed  to 
the  real  ray  directions  through  the  relations 


nx  =  (V  ff)kaoD 


(5.1.6) 


n  =  (u  +  ^)kanD 

y  y  fL  o 

(5.1.7) 

These  relations  are  deduced  from  the  cumulative  normal  distribution  function  used  in  the 
number  generator,  namely,  (fig.  5.1) 


r-  ZL 

PrW  =  e  2  dT 


(5.1.8) 

From  eq.  (5.1.5),  the  range  of  values  for  u^,  u^in  the  integrands  is  between  (-1,1).  A 

comparison  of  this  function  with  the  integrands  over  u  ,  u  in  eq.  (5.1.5),  shows  that  as 

x  y 

long  as  the  value  of  t  is  within  the  interval  (±l+^)kanD  (or  P  (t)  assumes  values 

U  R 

between  A  and  B  ),  eqs.  (5. 1.6),  (5. 1.7)  are  valid.  i 

Under  this  scheme,  much  flexibility  is  provided  for  the  choice  of  rays.  Since  only 
a  finite  number  of  rays  are  used,  a  variable  ray  distribution  will  prevent  a  localization  of 
heated  regions  within  the  plasma. 


5.2  Solenoid  grid  package 

In  this  section,  the  choice  of  grid  structure  used  for  defining  ray  positions  is 
discussed. 

In  the  plasma  column,  cylindrical  symmetry  is  assumed.  A  two  dimensional 
numerical  grid  in  radial  and  axial  direction  is  used.  Since  this  package  is  designed  for 
implementation  in  the  shell  MHD  code,  the  chosen  grid  structure  is  the  same  as  that  used 
in  that  code.  In  the  MHD  code,  the  radial  grid  layers  are  made  up  of  coaxial  magnetic 
she!ls(Fig.  5.2).ln  this  package,  the  radii  of  the  shells  are  taken  to  be  the  same  as  the  radii 
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Figure  5.1  Cumulative  gaussian  distribution  function. 


. 


56 


Figure  5.2  Spatial  grid  structure. 
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Figure  5.3  Density  gradient  between  shells. 
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of  the  magnetic  flux  shells  for  the  purpose  of  matching  the  plasma  parameters  in  the 
MHD  code.  Each  shell  is  divided  into  two  subshells  so  that  density  gradients  can  be 
evaluated  in  each  half  of  the  shell.  In  the  I™ shell,  the  density  gradient  in  the  outer  half 
shell  is  different  from  that  in  the  inner  half  shell  due  to  different  values  for  calculating 
the  gradient.  The  density  gradient  in  the  outer  half  shell  is  determined  by  the  difference  in 
densities  in  the  l^and  (1+ 1)"^"* shell  layer,  while  the  density  gradient  within  the  inner  half 
shell  is  obtained  from  the  difference  between  densities  in  the  lTH and  (I—  1  )TH shell  (fig 
5.3). 


5.3  Density  gradient  package 

In  this  section,  the  fitting  of  density  profiles  between  any  two  adjacent  grid  cells 

is  discussed.  By  calculating  the  density  gradient  changes  between  grid  cells  which  are 

radially  adjacent  to  each  other,  the  appropriate  profiles  can  be  chosen  correspondingly. 

From  the  MHD  code,  values  of  plasma  density  are  obtained  for  the  center  of  each 

grid  celKsee  footnote).  The  radial  density  gradient  between  two  adjacent  cells  located  at 

radial  distances  r  ,  r  from  the  axis  is  determined  from  the  plasma  densities  N  ,  N  in 
12  12 

these  two  cells.  Once  the  density  gradient  of  the  plasma  in  a  certain  region  is  known,  the 
appropriate  density  profile  can  be  chosen  correspondingly,  the  solution  of  the  ray 
equation  for  this  chosen  profile  can  be  used  to  describe  the  propagation  of  a  ray.  In 
order  to  determine  the  proper  density  profile,  the  first  and  second  derivative  of  the 


dN(r)  d2N(r) 

density  with  respect  to  radial  distance,  — -  are  calculated  since  the  choice 

of  profiles  is  based  on  the  conditions  (r )  >0  or  <0  and  - ^ ^  >0  or  <0.  The 

K  dr  dr2 

corresponding  profiles  are  listed  as  follows:(see  fig. 3. 1) 
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cPN  >0,  N(r)  =  N0(l  +  £) 
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A  cell  is  bounded  by  two  radial  and  two  axial  magnetic  shell  boundaries 
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(3) 


dN 
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0, 


N(r)  =  N2(l 


(4) 


2 

d  N 

dr2 


0, 


The  parameters  N(-,  a.  ,  i-0, 1,2, 3, can  be  evaluated  by  knowing  the  densities  in  any  two 
radially  adjacent  cells(with  known  radii). 

The  density  curve  fitting  method,  however,  does  not  give  a  good  approximation 
for  the  density  values  at  regions  where  there  is  a  transition  from  one  density  profile  to 
another.  As  shown  in  figure  5.4,  the  kind  of  curve  used  to  approximate  the  density 
variation  between  r^,r^  can  be  N^(1+r2/a^)  or  N^(1-a2/r2);similarly  in  regions  between  radii 
r^  and  ^profiles  N^I-rVa^)  or  N^I+aVr2)  can  be  used.  For  these  regions,  profiles  used 
in  the  shell  lying  next  to  this  region  (in  the  first  case,  shell  with  radius  less  than  r^  ,  in  the 
second  case,  shell  with  radius  less  than  r^)  are  chosen  as  the  fitting  profiles. 


5,4  Ray  tracing  package 

In  this  section,  methods  of  tracing  the  rays  through  the  plasma  are  discussed.  Ray 
locations  at  the  grid  boundaries  are  computed.  Rays  staying  in  the  innermost  shell  are 
specifically  discussed. 

This  package  gives  a  routine  of  tracing  rays  through  the  plasma  column  by 
locating  the  points  which  the  rays  intersect  with  the  cell  boundaries.  Moreover, 
absorption  coefficient  are  calculated  within  each  cell. 

As  soon  as  the  rays  reach  the  column,  their  radial  locations  are  tracked  down  to 
the  corresponding  grid  cell.  Knowing  which  cell  the  ray  hits,  its  subsequent  path  can  be 
traced  through  the  application  of  the  ray  equation  as  discussed  in  section  3.1. 

Within  each  cell,  the  density  is  assumed  to  vary  according  to  one  of  the  profiles 
given  in  section  3.1.  The  subsequent  ray  path  will  be  governed  by  the  solution 
corresponding  to  that  particular  profile.  Ray  locations  are  evaluated  at  the  points  where 
rays  intersect  with  the  cell  boundaries.  At  each  such  intersecting  point,  the  velocity 
components  are  evaluated  so  as  to  give  the  initial  conditions  for  the  ray  entering  into 
another  region  with  a  different  refractive  index. 
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Figure  5.4  Density  profile  approximation  used  in  various  region. 
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As  the  initial  and  final  locations  of  a  ray  within  a  cell  are  known,  the  associated 
absorption  coefficient  can  be  found  from  eq.  (4.2.2), 


AS  AS  At 

/o  dK  =  /  Kads  =  /  K  n(r(t) )cdt 

0  o 

(5.4.1) 

where  Kg  is  the  absorption  coefficient  per  unit  length;  At  is  the  time  for  the  ray  to 
traverse  from  the  initial  position  to  the  final  positioner  a  distance  of  As). 

As  can  be  seen  from  the  solutions  of  the  ray  equation  for  different  profiles,  the 
radial  positions  of  a  ray  is  a  direct  function  of  time.  Knowing  the  time  of  traverse  over  a 
cell,  the  ray  location  can  be  determined.  In  order  to  find  the  traversing  time,  the  final 
radial  position  of  a  ray  is  taken  to  be  the  cell  radius(fig.  5.5).  Corresponding  time  is 
calculated  from  the  equations  derived  in  section  3.1.  The  ray  advances  an  axial  distance 
of  v^At  in  a  time  interval  of  At.  If  this  axial  distance  is  less  than  an  axial  grid  interval,  it 
indicates  that  the  ray  will  cross  the  radial  grid  boundary  before  it  crosses  the  axial  grid 
boundary  (fig.  5.4).  On  the  other  hand,  if  the  calculated  axial  distance  is  larger  than  the 
axial  grid  separation,  the  ray  will  cross  the  axial  grid  boundary  before  it  crosses  the  radial 
one.  The  time  is  then  changed  to  that  for  the  ray  to  travel  over  one  axial  grid  distance. 

The  radial  distance  corresponding  to  this  time  can  be  evaluated  from  the  ray  solution. 

Axial  and  radial  distances  are  thus  known.  The  angular  position  can  also  be  found  from 
the  equation 


2  •  2  • 

r  e  =  r0e0 


At  r\20. 


e  =  e0  +  /  dt 

0  (5.4.2) 

where  are  the  initial  radial  ray  location  and  angular  velocity  respectively.  The  three 

spatial  co-ordinates  of  a  point  on  a  trajectory  can  be  completely  defined. 

When  a  ray  reaches  the  inner  most  shell,  the  ray  path  remains  straight  since  there 
is  no  change  in  refractive  index  within  the  core  and  the  ray  is  not  refracted.  Ray  locations 
at  the  boundary  points  and  at  the  closest  point  to  the  axis  have  to  be  found  differently. 
The  ray  path  is  illustrated  in  fig.  5.6. 
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Figure  5.5  Intersection  points  of  rays  with  cell  boundaries. 


Figure  5.6  Ray  path  in  the  central  core  of  the  plasma  column. 
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It  should  also  be  noticed  that  the  radial  velocity  component  is  taken  to  be  negative 
if  the  ray  travels  towards  the  axis,  otherwise  positive.  The  absorption  path  for  calculating 
the  absorption  coefficient  is  the  magnitude  of  the  ray  segment  between  the  initial  and 
final  ray  locations  within  a  cell.  The  time  taken  for  a  ray  to  traverse  from  one  side  of  the 
core  boundary  to  another  side  is 


-2R, •  v 
t  =  - L - 

|v|2  (5.4.3) 

where  is  the  radial  position  of  the  ray  at  the  shell  boundary;  v  is  the  velocity  within  the 
core  and  at  the  boundary.  The  time  taken  for  a  ray  to  traverse  from  the  boundary  to  a 
point  which  is  closest  to  the  axis  is 


t 


min.dist. 


(5.4.4) 


With  this  time  and  the  velocity  at  the  boundary  of  the  core,  locations  of  the  closest  point 
can  be  determined  as 

^min  v  Snin.dist.  + 

(5.4.5) 

Depending  on  the  velocity  components  of  a  ray,  there  are  three  types  of  rays. 
Rays  with  a  non-zero  angular  velocity  will  spiral  in  a  trajectory  forming  a  helix  around  the 
axis  of  propagation  and  approach  a  position  close  to  the  axis  but  never  through  it 
because  of  the  finite  angular  momentum  of  the  ray.  Rays  without  an  angular  velocity 
component,  will  go  through  the  axis.  Finally,  rays  that  have  only  a  non  zero  axial  velocity 
component  will  propagate  along  the  axis. 
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5.5  Absorption  package 

This  package  calculates  the  power  absorption  along  a  ray.  Power  exchanges  are 
only  encountered  in  those  cells  through  which  rays  pass. 

Power  absorption  in  the  f^cell  can  be  calculated  from  eq.  (4.2.7),  namely. 


A  t  -j 

‘/0  Kan(r(t))cdt 


4Pabs  =  Pi(r0’V[  1  -  e 


] 


(5.5.i: 


where Pj  Oq  ,  t^)  denotes  the  power  carried  by  the  ray  before  it  traverses  the  I cell;  tg 

TH 

is  the  time  at  which  the  ray  advances  to  the  I  cell;  is  the  radial  position  of  the 

TH 

ray  before  it  enters  the  I  cell;  At  j  is  the  time  taken  to  traverse  through  the  cell. 

The  temporal  power  profile  of  the  laser  beam  follows  the  one  used  in  the  MHD 
code.  It  is  approximated  as  straight  line  segments  as  shown  in  fig.  5.7.  In  the  MHD  code, 
the  temporal  change  of  the  plasma  behaviour  is  calculated  at  discrete  time  values(or 
hydrodynamic  time  steps,  At^^)(see  footnote).  Power  is  assumed  to  remain  constant 
within  a  hydrodynamic  time  step.  It  is  only  changed  when  the  hydrodynamic  time  steps 
are  altered.  This  assumption  is  valid  as  long  as  the  size  of  a  time  step  is  much  less  than 
the  pulse  width.  For  the  case  of  a  short  solenoid  (5cm  in  length,ion  and  electron 
temperature  of  leV),  the  step  size  is  in  the  order  of  10*8  sec.  and  the  pulse  width  is  in 
the  order  of  10**  sec.  Thus,  the  assumption  is  a  reasonable  approximation.  As  the  plasma 
becomes  hotter,  the  step  size  even  gets  smaller  since  the  particles  become  more 
energetic  and  their  velocities  thus  become  higher. 

The  advancement  of  the  beam  is  simulated  in  terms  of  a  number  of  beam  time 
steps.  At.  c  which  is  the  time  for  the  beam  to  propagate  over  one  cell.  Within  one 
hydrodynamic  time  step,  the  number  of  beam  time  steps  is 


AtMHD 

AtLASER 


(5.5.2) 


The  beam  advances  over  one  cell  spacing  for  every  beam  time  step. 


The  hydrodynamic  time  step(  Atpyipj^  )  is  the  time  interval  within  which  the  plasma  is  taken 
to  be  stable.  This  time  is  bounded  by  the  time  for  the  plasma  fluid  element  to  traverse 
over  a  grid  cell  radially  or  axially.  Namely,  A  tfyiHD^  AR/vmaor  At|\/)HCr  Ax/vs  where 
AR,Ax  are  the  radial  and  axial  grid  size;  vmais  the  magneto-acoustic  velocity, 
(v^*+vA2)/(1+vA2/c2);vA  is  the  Alfven  velocity,  B2//4ttN  j0n  mjon  ;  vs.is  the  sound  velocity, 
y  i  e  /rne.  In  actual  runs,  the  time  step  is  adjusted  to  be  less  than  50%  of  these  limits. 
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Figure  5.7  Temporal  power  profile  of  the  laser  beam. 
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The  absorbed  energy  in  a  ceil  can  be  calculated  as  follows.  The  initial  energy 
carried  by  a  ray  in  any  hydrodynamic  time  step  is 


EMHD  AtMHD  x  PMHD 


(5.5.3) 


where  is  tbe  laser  power  of  the  ray  in  a  particular  MHD  step.  Having  this  energy 
divided  among  the  M  beam  time  steps,  the  initial  energy  which  the  ray  carries  is 


'LASER 


At  x  P 

MHD  MHD 
M 


A^LASER  X  PMHD  (5.5.4) 

This  amount  of  energy  will  be  the  input  energy  for  each  laser  time  step.  The  energy 
deposited  in  an  individual  cell  will  be  governed  by  an  equation  similar  to  eq.  (5.5.1),  that  is, 

At 


-/  K  n(r(t))cdt 


E  ,  =  E .  [  1  -  e 

abs  i L 


0 


] 


(5.5.5) 


where  E-  is  the  energy  associated  with  the  ray  before  it  enters  into  the  I  cell  and  is 

At 

‘  4Kan^t^cdt 

equal  to  E^-  -j  e  .  The  total  amount  of  energy  absorbed  in  a  cell  will 

be  the  sum  of  all  the  absorbed  energy  contributed  from  each  ray  passing  through  the 
cell. 


5.6  Ponderomotive  force  package 

In  this  section,  the  ponderomotive  force  in  each  cell  through  which  the  ray  passes 
is  computed  from  the  energy  intensity  gradient  across  the  grid  cells. 

From  eq.  (4.3.1  1),  (4.3.12),  the  radial  and  axial  force  components  are  given  as 


-03 2 


(JL) 

W;  8rvnc' 


0 


(4.3.1  1) 


. 


. 


Through  using  finite  difference  scheme,  the  force  components  in  the  cell  labelled  with 
grid  co-ordinates  (N,M)  are 


(5.6.1) 


1 Ri ght~  JLeft  1 
ZM+1  ~  ZM  1n,MC 


(5.6.2) 


where  ^LOW'1  RIGHT  .l|_ppyare  radiation  *ntensities  at  the  cell  boundaries  located 


at  radial  distances  R^+  ^  ,R  ,  and  axial  distances  ZM+  y  Z  M  respectively;  q^  M  is  the 
refractive  index  in  cell  located  at  grid  position  (N,M)  (fig.  5.1). 

The  intensities  at  the  cell  boundaries  are  taken  to  be  the  averages  of  the  cell 
centre  values  of  two  adjacent  cells.  Thus,  for  cases  of  lypp^p  and  IlqW  .they  are 
given  as 


(5.6.3) 


where  N,M  are  subscripts  referred  to  the  corresponding  grid  cell. 

For  cells  located  at  the  plasma  boundary,  they  are  not  completely  surrounded  by 
other  cells.  At  the  outermost  radial  boundaries,  the  intensities  are  taken  as  half  the  value 
at  the  centre.  At  both  ends  of  the  column,  the  intensities  at  the  outermost  boundary  are 
taken  to  be  that  of  the  beam. 
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Chapter  6 

Computational  results 

In  section  6.1,  plots  for  ray  trajectories  in  a  vacuum,  and  plots  for  the  spatial 
distribution  of  ray  locations  and  energy  are  given  and  discussed.  In  section  6.2,  the 
simulation  of  a  typical  plasma  density  profile  from  the  data  obtained  from  the  shell  MHD 
code  is  discussed.  Ray  trajectories  are  computed  within  a  plasma  column  for  the 
assumed  density  profile  in  section  6.3.  The  behaviour  of  the  rays  within  the  medium  is 
also  discussed.  In  section  6.4,  the  energy  distribution  in  the  plasma  is  presented  in  terms 
of  the  ray  distribution  at  various  axial  positions  along  the  column.  Finally,  the  absorbed 
energy  and  ponderomotive  forces  within  the  plasma  are  illustrated  with  the  three 
dimensional  plots. 


6.1  Ray  propagation  in  vacuum 

In  this  section,  trajectories  of  rays  propagating  in  vacuum  ,  the  spatial 
distributions  of  the  rays  and  the  radial  variation  of  beam  power  are  plotted  and 
discussed. 

A  sample  of  100  rays  is  used  to  simulate  the  beam.  Beam  power  is  divided 
equally  among  the  rays.  A  lens  of  5cm(radius)  aperture  and  a  focal  length  of  150cm  is 
chosen.  Transverse  locations  and  directions  of  the  rays  at  the  lens  plane  are  determined 
from  a  random  Gaussian  distribution  function  as  explained  in  section  5.1.  The  locations  of 
the  rays  along  the  direction  of  propagation  are  determined  from  eq.  (2.1.26)  given  in 
chapter  two.  The  ray  trajectories  in  vacuum  are  shown  graphically  in  fig.  6.1  from  which 
it  is  clear  that  the  density  of  rays  is  higher  in  the  axial  region.  Such  a  ray  distribution 
results  from  a  Gaussian  choice  of  the  intensity  profile  for  the  beam.  The  nonzero  radial 
position  of  the  rays  at  the  focus(shown  in  Fig.  6.1)  is  due  to  the  inclusion  of  diffraction 
effects. 

A  plot  of  the  square  of  the  average  radial  distance  of  all  rays  is  given  as  a 
function  of  axial  distance  in  fig.  6.2.  The  trajectory  shows  axial  symmetry  about  the 
focus.  In  fig.  6.3,  there  is  a  minimum  for  the  square  of  the  half  power  beam  radius  at  the 
focal  distance.  The  half  power  beam  radius  at  the  focus  is  calculated  to  be  4.88  x 
10_3cm.  This  finite  beam  size  is  a  result  of  the  inclusion  of  diffraction  effects. 
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Figure  6.1  Variation  of  the  square  of  radial  position  of  the  trajectories  along  the  axis  of 
propagation. 
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AXIAL  DISTANCE  (CM) 


Figure  6.2  Square  of  the  average  radial  ray  position  with  incoherence  factor=0.5 
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AXIAL  DISTANCE  (CM) 


Figure  6.3  Square  of  the  half  power  radial  ray  position  around  focal  spot  with 
incoherence  factor=1.0 
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The  distribution  of  ray  locations  at  the  lens  plane  and  the  focal  plane  are  shown  in 
figs.  6.4  and  6.5  respectively.  According  to  the  diagrams,  the  spread  of  rays  at  the  focal 
plane  is  shown  to  have  a  similar  pattern  as  that  at  the  lens  plane.  This  implies  that  the 
locations  of  rays  have  a  Gaussian  distribution  at  the  focal  plane.  An  analysis  on  the  radial 
power  distribution  confirms  the  above  conclusion. 

The  power  distribution  profile  at  the  lens  plane  and  the  focal  plane  are  obtained 
by  counting  the  number  of  rays  within  a  circular  area  of  radius  r.  Since  each  ray  carries 
equal  units  of  power,  the  total  number  of  rays  represent  the  total  units  of  power  within 
the  region.  This  is  presented  as  cumulative  histograms  in  figs.  6.6  and  6.7.  The  average 
deviation  of  the  power  values  from  those  calculated  directly  from  a  Gaussian  intensity 
profile  is  about  0.3%,  indicating  that  the  rays  at  the  focal  plane  follow  a  Gaussian 
distribution. 

The  square  of  the  average  radial  distance  of  the  rays  around  the  focus  for  an 
incoherent  beam  (incoherence  factor=0.5)  is  shown  in  fig  6.8  and  the  half  power  radius 
is  given  in  fig.  6.9.  The  spotsize  (radius  9.77  x  10'3cm.)  is  about  twice  as  much  as  that  for 
the  coherent  beam  case.  A  plot  of  the  power  distribution  is  also  given  in  fig  6.10.  The 
degree  of  incoherence  can  be  used  as  a  means  for  altering  the  size  of  the  beam  at  the 
focus. 


6.2  Simulation  of  the  density  profile 

In  this  section,  a  plasma  density  profile  used  for  testing  the  ray  tracing  routine  is 
constructed  from  the  density  values  computed  from  McMullin  et.  al.'s  MHD  code  for  a 
short  laser  heated  solenoid(5cm.  in  length  and  1.5cm.  in  radius).  The  plasma  is  assumed  to 
have  an  initial  density  of  2.0  x  1018  crrr3  and  is  confined  by  a  magnetic  field  of  100 
kilogauss.  The  laser  power  is  assumed  to  rise  linearly  from  0  at  t=0  to  100MW  at  t=10ns 
and  then  remains  constant.  A  typical  density  profile  is  constructed  from  the  density 
values  computed  at  time  1.2  x  10~7sec.  The  density  values  at  an  axial  distance  of 
0.917cm.  from  the  laser  entry  end  are  listed  in  the  following  table: 
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Figure  6.4  Distribution  of  rays  at  the  lens  plane  (100  rays) 


Figure  6.5  Distribution  of  rays  at  the  focal  plane  (100  rays). 
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Figure  6.7  Power  distribution  for  beam  with  incoherence  factor— 1.0  at  the  focal  plane. 
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Figure  6.8  Square  of  average  radial  distance  of  rays  around  the  focus 
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Figure  6.9  Square  of  half  power  beam  radius  with  the  incoherence  factor=0.5 


Figure  6.10  Power  distribution  for  beam  with  the  incoherence  factor=0.5. 


76 


o 


ro 

co 


70  ? 
ID  cn 
O  ~ 
H 
XI 


a  o 

H  • 


n 


CO 

cn 


X  o 
o 

I 


UNITS  OF  POUER 


10 

i 


20 

i 


30 

— i- 


40 

i 


SO 

—I _ 


60 
_ i _ 


70 

i 


80 


O) 

CO 


77 


Table  1 

Radial  position(cm)  Density(  x  1018/cm3) 


(1) 

0.1330 

1.152 

(2) 

0.2745 

1.656 

(3) 

0.4200 

2.46 

(4) 

0.6720 

2.26 

(5) 

0.9740 

2.0 

The  density  variation  between  the  first  and  second  locations  is  fitted  with  the  profile  Nq 
i'l+r2/^.  For  the  second  and  third  locations,  the  profile,N  ^  ( 1 -aj/rJ)  is  used.  Following  the 
same  procedure,  the  rest  of  the  data  are  fitted  with  the  corresponding  profiles  N2 
Kl-rVa^)  and  N^d+a^/r2).  This  simulated  profile  is  illustrated  in  fig.  6.1  1. 


6.3  Ray  Tracing  in  the  plasma  column 

In  this  section,  the  radial  locations  of  rays  propagating  in  various  regions  of  the 
plasma  column  are  plotted  and  discussed.  The  radial  components  of  the  rays  are 
calculated  according  to  the  ray  equation  solutions  for  the  density  profiles  in  various 
regions. 

1.  Rays  with  radial /y  outward  velocity  components 

The  radial  components  of  the  ray  trajectories  within  the  plasma  for  rays 
having  an  initial  radial  outward  velocity  are  shown  in  figs.  6.12  to  6.17.  The  plasma 
column  is  assumed  to  be  placed  10cm  behind  the  focus  to  ensure  that  the  rays  will 
diverge  before  they  enter  into  the  medium. 

In  fig.  6. 12,  the  radial  component  of  the  ray  trajectory  within  a  radial 
parabolic  density  profile(see  region  1  in  fig  6.1  1)  is  shown.  The  initial  transverse 
co-ordinates  and  directions  of  the  ray  are  x=0.219cm,  y=-0. 1  14cm,  u  =0.0147, 

A 

Uy=-0.715  x  10-2.  The  sinusoidal  fluctuation  of  the  radial  component  of  the  ray 
along  the  plasma  column  shows  that  the  ray  is  trapped  within  the  region.  A  full 
illustration  of  the  ray  propagating  along  the  column  is  given  in  fig  6.13.  The  ray 
gyrates  around  the  axis  of  propagation  and  traces  a  helix  with  an  oscillating  radius. 
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Figure  6.1 1  Radial  density  profile  of  the  plasma  column. 
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Figure  6  12  Ray  path  within  region  1  (with  initial  outward  radial  velocity) 
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Figure  6.13  Ray  trajectory  in  plasma  column 
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This  gyrating  ray  trajectory  shows  that  beam  focusing  and  defocusing  takes  place 
in  the  parabolic  density  region. 

In  the  following,  the  result  obtained  by  the  ray  tracing  technique  is 
compared  with  those  obtained  from  the  normal  mode  analysis  developed  by 
McMullin,Cap jack, and  James.  From  the  normal  mode  analysis,  the  axial  period  of 
beam  intensities  within  a  parabolic  density  profile  is 


where 


K  = 


“pe(r’z) 


tlzV0tz,lz=0,r=0 


(r,z) 


r=0 

z=0 


4^e2Ne(0,0) 


z=0 


2  TT  n  i  W2  -,2 


(6.3.1) 


c  q  is  the  speed  of  light  in  vacuum. 

a0(z  ^  coefficient  used  in  the  following  density  profile 

Ne(r,z)  =  N0(0,z)  [1  + 
and  I\y0,z)  is  the  axial  density. 

For  the  special  case  of  axially  independent  plasma  density,  eq.(6.3. 1)  becomes 


K  = 


>e(r)  I 


k[0T 


r=0 


(6.3.2) 


By  substituting  for  Nq  =0.997  x  1 018/crTr3,ag(0)=0.338  and  a)pe(0)=5.63  x  10n  sec'1  in 
the  above  equation,  the  axial  period  of  oscillation  is  found  to  be  6.028cm.  From  the  ray 
tracing  computation, the  period  is  calculated  to  be  6.1678cm  which  is  within  2%  error 
with  the  value  calculated  from  eq.  (6.3.2).  The  period  obtained  from  the  ray  tracing 
technique  is  further  compared  with  that  derived  by  Mani  .  Results  show  a  small 
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discrepancy  of  2.5%.  Thus,  this  ray  tracing  method  gives  consistent  description  of  the 
beam  propagating  in  a  medium  with  a  parabolic  density  profile. 

In  fig.  6.14  and  fig.  6.15,  the  radial  variations  of  two  rays  propagating  in  the 
region  where  the  plasma  density  varies  according  to  the  relation  N ^  ( 1  — a^/r2)  (see  region  2 
in  fig.  6.1  1)  are  shown.  The  case  in  which  the  ray  penetrates  into  a  region  where  the 
plasma  density  is  close  to  the  peak  value  is  displayed  in  fig.  6.14.  The  initial  locations  and 
directions  of  the  ray  are  x=-0. 396cm,  y=0. 149cm,  ux=-0. 0265,  Uy=0.0 1 03.  The  plasma 
density  in  this  region  is  too  high  for  the  ray  to  be  trapped.  As  a  result,  the  ray  propagates 
radially  outward  and  enters  into  another  region  with  a  radially  decreasing  plasma  density, 
where  the  ray  is  further  refracted  off  the  column. 

In  fig.  6.15,  the  ray  propagates  close  to  region  1(see  fig.  6.1  1).  The  initial 
locations  and  directions  are  x=0.091cm,  y=0.295cm,ux=0.646  x  1 0*J,  Uy=0. 1 99  x  10*1. 
The  plasma  density  is  high  enough  to  cause  total  reflection  of  the  ray.  Consequently,  the 
ray  penetrates  into  the  parabolic  density  region  where  it  is  trapped. 

In  fig.  6.16,  the  radial  component  of  the  ray  is  seen  to  increase  as  the  ray 
propagates  within  region  3  (see  fig.  6.1  1).  The  initial  transverse  co-ordinates  and 
directions  of  the  ray  are  x=-0.22cm,  y=-0.4cm,  ux=-0.0145,  =-0.0265.  The  ray  is 

refracted  off  the  plasma  column  due  to  a  decrease  in  the  refractive  index. 

The  variation  of  the  radial  component  illustrated  in  fig.  6.17  gives  how  a  ray 
propagates  along  the  plasma  column  if  it  initially  lies  close  to  the  plasma  periphery  (see 
region  4  in  fig.  6.1  1).  The  ray  locations  and  directions  are  chosen  to  be  x=0. 822cm, 
y=-0.731  cm, ux=0. 055  1,Uy =-0.0487.  The  plot  shows  that  the  ray  propagates  only 
within  the  outside  core  of  the  column  and  cannot  penetrate  into  the  plasma  column. 

2.  Rays  with  radial  / y  inward  velocity  components 

In  this  section,  rays  with  an  initial  radially  inward  velocity  are  traced  along 
the  plasma  column  in  various  density  regions.  The  plasma  column  is  assumed  to  be 
placed  10cm  in  front  of  the  focus.  Rays  are  thus  ensured  to  be  converging  by  the 
time  they  reach  the  column. 

In  fig.  6.18,  the  radial  component  of  the  ray  location  in  the  parabolic  density 
region  (see  region  1  in  fig.6. 1  1)  is  shown.  The  initial  locations  and  directions  are 
x=0. 287cm,  y=0.69  x  1  0'1cm.,ux=-0. 1 92  x  1 0_1,Uy=-0.465  x  10-2.  The  period  of 
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Figure  6.14  Ray  path  within 
close  to  region  3). 
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Figure  6  15  Ray  path  within  region  2  (with  initial  outward  radial  velocity  and  initial  position 
close  to  region  1). 
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Figure  6.16  Ray  path  within  region  3  (with  initial  outward  radial  velocity). 
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Figure  6.17  Ray  path  within  region  4  (with  initial  outward  radial  velocity). 
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Figure  6.18  Ray  path  within  region  1  (with  initial  inward  radial  velocity). 
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oscillation  is  found  to  be  5.48cm.  A  comparison  to  the  period  derived  from  eq. 
(3.3. 1.2),  namely, 


z 


period 


0 

yj^~;vz  is  2.9  x  1 010cm/sec.;NQ  is  0.997  x  1 O^/cm^a^is  0.337;Ncis 

9.94  x  1 0^/cm3  (  for  X=  1 0.6yum  )  and  c  is  the  speed  of  light,  shows  a  1 3% 

difference.  This  deviation  arises  from  the  choice  of  density  profiles  in  the 

corresponding  region.  In  this  case,  the  plasma  density  in  the  region  into  which  the 

ray  enters  is  approximated  by  a  non-parabolic  increasing  density  profile.  However, 

the  density  is  assumed  to  vary  according  to  a  parabolic  increasing  density  profile. 

This  mismatch  of  density  profile  leads  to  the  above  deviation. 

In  fig.  6.19,  a  ray  which  enters  the  plasma  core  from  region  2(see  fig.  6. 1  1) 

is  displayed.  The  initial  locations  and  directions  of  the  ray  are  x=-0.43cm, 

y=-0. 1 3cm,  ux=0. 2868  x  1 0~\  u^=  0.824 1  x  10~2.  The  ray  approaches  the  inner 

core  region  gradually  ,  reaches  a  minimum  radial  position  and  then  exits  the  column. 

This  phenomenon  is  indicated  by  a  change  in  radial  distance  of  the  ray. 

The  behaviour  of  the  rays  when  they  enter  into  region  3  and  region  4  (see 

fig  6.1  1)  are  revealed  in  fig.  6.20  and  fig.  6.21.  The  initial  locations  and  directions 

for  the  ray  in  fig.  6.20  are  x=0. 404cm,  y=0.5  1 3cm,ux=-0.027,Uy=-0.034  and 

those  in  fig  6.21  are  x=-0.831cm,  y=0.731cm,  u  =0.055, u  =-0.049.  As  the  rays 

x  y 

approach  the  column  axis,  they  enter  into  a  medium  of  which  the  refractive  index 
gradually  decreases.  Eventually,  the  rays  are  totally  reflected  off  the  column. 


where  ft  is 


6.4  Absorbed  energy  and  ponderomotive  forces 

In  this  section,  the  distribution  of  rays  along  the  column  is  presented  in  terms  of 
their  locations  at  various  transverse  planes.  The  magnitudes  of  the  absorbed  energy  and 
ponderomotive  forces  for  a  beam  simulated  with  10  rays  are  presented  in  terms  of 
three  dimensional  plots. 

Distributions  of  rays  in  the  transverse  planes  located  at  the  axial  distances, 
z=0.0cm,  1.25cm,  2.5cm,  3.75cm  and  5.0cm  from  the  left  end  of  the  plasma  column  are 
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Figure  6.19  Ray  path  within  region  2  (with  initial  inward  radial  velocity) 
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Figure  6.20  Ray  path  within  region  3  (with  initial  inward  radial  velocity). 
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Figure  6.21  Ray  path  within  region  4  (with  initial  inward  radial  velocity). 
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shown  in  figs.  6.22  to  6.26.  Cases  for  converging  rays  (figs.  6.22a-6.26a)  and  diverging 
rays  (fig.  6.22b~6.26b)  are  compared.  From  figs.  6.22a  to  6.26a,  the  distribution  of  ray 
locations  indicates  that  the  rays  are  focused  and  defocused  as  they  propagate  along  the 
column.  At  z=  1.25cm  and  5.0cm,  almost  all  rays  propagate  within  the  first  shell  in  the 
column,  showing  that  the  beam  is  focused  at  these  locations. 

From  figs.  6.22b  to  6.26b,  the  behaviour  of  the  rays  is  seen  to  be  very  similar  to 
the  set  of  rays  displayed  in  figs.  6.22a  to  6.26a.  However,  more  rays  are  also  seen  to 
spread  over  the  periphery  of  the  column.  This  is  a  consequence  of  the  divergence  of  the 
rays  which  implies  that  a  higher  proportion  of  the  rays  is  distributed  away  from  the 
column  axis. 

The  absorbed  energy  and  ponderomotive  forces  associated  with  rays  focused  at 
the  centre  of  the  column  are  illustrated  in  figs.  6.27  to  6.29.  In  fig.  6.27,  the  absorbed 
energy  per  grid  cell  peaks  at  z=  1.25cm  and  z=4.4cm.  This  maximum  absorption  is  only  a 
consequence  of  the  rays  concentrating  at  those  locations  and  does  not  imply  that  strong 
absorption  occurs  in  those  regions.  Moreover,  the  amount  of  absorbed  energy  in  a  cell  at 
z=  1.25cm  is  just  slightly  higher  than  that  at  z=4.4cm.  This  is  due  to  the  small  and 
approximately  equal  magnitude  of  the  absorption  coefficients  at  both  locations.  When  the 
beam  reaches  the  location  at  z=  1.25cm,  the  beam  power  is  not  strongly  absorbed  and 
most  of  the  power  is  transmitted  down  the  column.  At  z=4.4cm,  the  input  beam  power 
does  not  decrease  significantly.  Moreover,  due  to  the  approximately  equal  absorption 
coefficient,  the  absorbed  power  is  about  the  same. 

Plots  of  radial  and  axial  ponderomotive  forces  along  the  column  are  shown  in  fig. 
6.28  and  fig.  6.29.  Both  forces  have  maximum  magnitudes  at  the  region  with  the  highest 
radiation  intensity.  Negative  amplitudes  imply  that  the  forces  and  radial  displacement  are 
in  opposite  directions.  With  an  input  laser  intensity  of  1.0  x  10!watts,  the  maximum 
magnitude  of  the  radial  and  axial  ponderomotive  forces  are  found  to  be  0. 198  x  104 
(dynes/cm5)  and  the  axial  ponderomotive  force  to  be  0.54  x  10  3  (dynes/cm  3) 
respectively.  By  comparing  these  values  to  the  hydrodynamic  force(for  T=100eV,dN 
/dr=8.8x  1 017  /cm4, over  a  scale  length  of  0.05cm,  k=  1 .6  x  1 0“12erg/eV,dP/dr=kT(dN 
/dr)=  1.41  x  109  dynes/cm3),  the  ponderomotive  forces  are  far  smaller  than  the 
hydrodynamic  ones.  These  force  components  will  become  significant  when  the  laser 
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intensity  becomes  much  higher. 
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Figure  6.22a  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  135cm 
from  lens  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Figure  6.22  b  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  165cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Z=1.25C!1 

Figure  6.23a  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  135cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Figure  6.2  3b  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  165cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Z=2.5Cf1 


Figure  6.24a  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  135cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 


Z--2.5  cn 

Figure  6.24b  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  165cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Figure  6.2  5a  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  135cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 


Z=3.75Cn 

Figure  6.2  5b  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  165cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Z=5,0CM 

Figure  6  26  a  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  135cm 
from  lens.  The  focal  length  of  the  lens  is  assumed  to  be  150cm. 


Z=5.00CM 

Figure  6.26  b  Ray  distribution  with  the  front  end  of  the  plasma  column  placed  at  165cm 
from  lens.  Tne  focal  length  of  the  lens  is  assumed  to  be  150cm. 
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Figure  6.27  Distribution  of  absorbed  energy  within  plasma  column  (with  beam  focused  at 
the  middle  of  the  column). 
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Figure  6.28  Distribution  of  axial  ponderomotive  force  within  the  column. 
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Figure  6.29  Distribution  of  radial  ponderomotive  force  within  the  column 
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Conclusion 

The  propagation  of  a  focused  laser  beam  in  a  vacuum  and  in  a  plasma  medium  is 
investigated  by  using  a  ray  tracing  technique  which  accounts  for  the  diffraction  effects 
of  the  beam.  The  effect  is  introduced  by  means  of  a  phase-space  distribution  function 
which  was  suggested  by  Tappert  The  distribution  function  provides  a  range  of  values  for 
the  ray  directions  so  that  rays  are  not  focused  at  one  point,  but  are  spread  out  at  the 
focal  region.  If  the  laser  beam  intensity  assumes  a  Gaussian  profile  at  the  lens  plane,  rays 
will  be  then  distributed  across  the  focal  plane  in  a  Gaussian  manner.  Results  show  that 
this  method  can  generate  rays  which  give  the  diffraction  limited  focal  spot  size.  Optical 
defects  such  as  aberration,  are  modelled  by  introducing  an  incoherence  factor  into  the 
distribution  function.  By  means  of  this  factor,  the  focal  spot  size  can  be  adjusted  to  meet 
experimental  measurements. 

Rays  are  traced  through  the  plasma  by  means  of  analytic  methods.  The  ray 
equation  is  solved  for  different  kinds  of  refractive  index  profiles.  Ray  trajectories  within 
the  medium  are  traced  in  terms  of  these  solutions.  Since  the  plasma  density  is  spatially 
non-homogeneous,  appropriate  density  profiles  are  used  to  describe  the  density  in 
various  regions.  Corresponding  ray  path  solutions  are  used.  A  testing  density  profile  with 
an  on-axis  minimum  obtained  from  an  MHD  simulation  of  a  laser  heated  plasma  confined 
by  a  solenoidal  magnetic  field  is  used  as  a  sample  run  for  the  ray  tracing  package.  Results 
indicate  that  rays  are  trapped  within  regions  with  a  parabolic  radial  density  variation;  rays 
are  reflected  off  axis  when  they  propagate  in  regions  having  a  radially  decreasing  density 
profile.  Focusing  and  defocusing  effects  of  the  beam  within  the  predefined  profile  are 
shown  by  the  distribution  of  ray  locations  at  various  axial  planes. 

The  plasma  density  profile  used  in  the  simulation  is  assumed  to  be  axially 
independent.  However,  in  actual  plasma  density  distribution  evaluated  by  the  shell  code, 
the  density  varies  axially  as  well.  In  the  ray  tracing  routine,  this  axial  density  change  is 
taken  into  account  by  the  appropriate  fitting  of  density  profiles  over  the  grid  cells.  Since 
the  choice  of  density  profiles  is  determined  by  the  density  values  in  the  grid  cells,  any 
variations  in  density  values  will  give  different  choices  for  the  density  profile. 

An  extension  of  the  ray  tracing  technique  to  gas  target  experiments  will  be  of 
interest  and  use  for  future  research.  For  the  gas  targets,  there  are  no  magnetic  fields 
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confining  the  plasma  and  as  a  result,  the  plasma  expands  freely  in  all  directions  upon 
heating  The  rays  will  intersect  the  plasma  boundary  at  different  locations  in  subsequent 
times.  Moreover,  because  of  the  high  plasma  density,  rays  can  be  scattered  as  they  reach 
the  region  with  critical  densities.  The  problems  of  a  moving  plasma  boundary  and  beam 
scattering  are  significant  factors  to  be  considered  in  the  ray  tracing  program  for  gas 
target  experiments. 

Throughout  the  analysis,  the  spatial  distribution  of  the  laser  beam  is  assumed  to 
be  composed  of  the  fundamental  Gaussian  mode.  In  a  real  situation,  the  beam  may  have  a 
different  mode  structure  mixed  together(see  footnote)  and  cylindrical  symmetry  no 
longer  holds.  The  intensity  of  the  beam  is  expected  to  vary  with  angular  and  radial 
positions.  Thus,  the  choice  of  ray  locations  and  directions  are  determined  by  the  radial 
and  azimuthal  co-ordinates.  Consequently,  the  number  of  rays  required  for  simulation  will 
be  increased  significantly  and  will  increase  the  operating  cost  of  the  simulation  program 
considerably.  Further  investigation  on  this  problem  is  needed. 


Diagrams  of  different  mode  structure  are  given  in  fig.  4.12  in  'An  introduction  to  optical 
electronics’  by  A.  Yariv 
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Appendix  1 


1.1  Derivation  of  Poynting  vector  in  eq.(2.1.8) 

Assume  that  the  electric  field  vector  E  has  components  Ex,Ezwhere  |  E  |  <<  |  E 

Z  X 


_  A  A 

E  x  +  E  z 
x  z 


From  Maxwell's  equation, 


?-E  =  0 

we  get 


Let 


3E 
_ x 

3x 


+ 


0 


3E  -3E 

_ X  _  _ z 

3x  3Z 


»y,z)e 


i  (kz- wt) 


(1) 


(2) 


Therefore,  equation(l)  becomes 


fz  _  pi  (kz-  0Jt) 

3Z  3X  e 


J.  i  i_  _3e  i  (kz-  Hit) 
lz  ~  k  to  e 

Again  from  Maxwell's  equation. 


-*■ 

V 


1  it 

C  3t 


(3) 


) 
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With 


t  -  tU,y,z)eHkz-^ 


V  X 


E 


Substituting  E  with  eq.(2)  and  (3), 


b  =  zistisji  +  (_ 

0)  L  5y  v  3z 


3E  3E  a  3E 

— — - — )y - ££] 

3x  3y  J 


1  3ze 


2r.  A 


k  3X 


2)  > 


_3e  a 1  i (kz-ut) 
3y  J 


Dropping  the  second  order  derivative  of  e  , 


3e\S  _  M.  5lJ(k2-ut) 


6  =  ^{(ike  +  f)y  ■  |  $> 


0) 


=  [<y  +  ^-j£  y  ♦  &S)]e1(kz-“t) 

a)  3Z  3y 


The  Poynting  vector  S  is 


S  = 


Re[  t  x  t*] 


8tt 


Re[(cJ  +  if  £)  x  [c*P-if(^  +  |f  £)]] 


8 


7T 


Re[| 


I  9  ^ 

e  lz 


.  i  *i£0  +  jc  del  C  +  ic  3e  H*  j 
k  3X  U)  3Z  ku  3x  3z 


x  +  P] 

u  sy 


■ 
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Assume 


el2  » 


1  9e* 


k  9Z 


,9e 


^ 1j_9ej  i  9c* 
e~9x!  >:>  k1  9x'  1  9Z 


Then, 


?  -  c  D^n  12  £  i  *9c  A  ,  ic  9s*  a-. 

s  =  87  RetM2  z  -  p=*—  x  +  y] 


8tt 


k  9x 


a)  9y 


2k1 


-MM22*#... 

[|e|2Z  +  ^-(eV^*  -  e*V[e)] 

=  k  [Ie|2^  "  k(e*iE '  £^C*)] 


.  r*ie\ 

3X  3x' 

A 

X  + 

/  9e* 

e9y 

- 

9y 

9e*  a  9e* 

~ —  x  +  ett; — 

A 

y  - 

(E*if 

x  +  e*: 

)  y] 


iL 

9y 


c 

8tt 
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Appendix  2 

2.1  Derivation  of  the  electric  field  after  the  lens  plane 

The  far  field  approximation  of  the  electric  field  of  a  laser  beam  at  a  distance  of  z 
from  the  source  is  given  as5 


u(r.z)  =/f  WT7T  ei(kz-{,(z)) 

V  '  (D 

where 


*  =  tan'1  (^t-) 


Trtv 


R(Z)  =  2[1  +  (y^)2] 


w2<z>  =  "P  + 


r2  =  x2  +  y2  and  r  <<  R 


Wq  is  the  beam  waist  of  the  laser. 

If  a  thin  lens  is  placed  at  a  distance  Zgfrom  the  origin,  the  field  amplitude  of  the  light 
beam  is 


u(r,zQ)  = 


-i  ( kzQ- 4>( zQ ) )  w2(z0) 

6  g  g 


i  kr2 


(21 


On  passing  through  the  lens,  the  field  amplitude  becomes 


1  10 


-i ( kz, -$(z, ) ) 
e  1 


r2  i kr2 
"w^TzTT  2R(z,) 
e  e 


(3) 

where  R(z^  )  is  negative  (by  convention)  since  the  beam  converges.  But  the  radius  of 
curvature  of  the  wavefront  is  related  to  the  focal  length  of  a  thin  lens  by 


R(z1  ) 


r  1  ] _ -j 

[Rl^T  '  fL] 


(4) 


The  field  becomes 


A  i  -i(kzrt(z1)) 

u(r>Zl)=A^Te 


-r2t 


1 


w2(z1 ) 


ik  ,  ik 
2fL] 


(5) 


Since  the  lens  is  assumed  to  be  thin,  the  axial  distance  and  spotsize  are  approximated  as 


2q  2i  »  w(zq)  ~  w(z-j) 

The  field  becomes 


u ( r » z-j )  =i 


<2  1  -i(kz0-4»(z0)) 


*  w(zQ) 


r?r  ,  ik  i k 

r  ^  +  2f[ -21^ 


(6) 


As  Zq>>1  for  ^ar  field, 


=  /f  i  -i{kz0-*(z0)) 

/  TT  W(ZQ)  6 


* 


■ 


f 


Let 


1  1  1 


fl  1  -i(kz0-$(zQ)) 

/  n  w(zg)  6 


the  electric  field  becomes 


-r‘ 


-i  kr 

,  \  w2(zo^  2fi 

u(r  ,z1 )  =  Eq  e  u  e  L 


(7) 


1  12 


Fig  2.1  Optical  system  described  in  Appendix  2 
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Appendix  3 


3.1  Program  listings  and  flowcharts 


^  START  ^ 

1 

f 

/  READ  DATA  / 
/  FOR  LASER  / 

/  AND  PLASMA/ 

/  PARAMETERS/ 

r 

/  WRIT 
/  AND 
/  PARA 

E  LASER/ 
PLASMA  / 

meters/ 

GENERATE  A 
TESTING  DENSITY 
PROFILE 


GRID  STRUCTURE 
COMPUTATION 
FROM  GIVEN 
GRID  CONDITION 


POWER 

INITIALIZATION 
( PWINIT) 


DENSITY  GRADIENTS 
IN  BETWEEN  CELLS 
CALCULATED 
(DNGR) 


_ 1 

r 

RAY  TRACING 
ROUTINE  WITH¬ 
IN  PLASMA 

RAY  GENERATION 

AT  LENS  PLANE 
(DRAY) 

ENERGY  AND 
PONDEROMOTIVE 
FORCE  COMPUT¬ 
ATION 


CHART  I.  PROGRAM  FOR  TESTING  SUBROUTINE  PACKAGES  CHART  2.  POWER  INITIALIZATION  ALGORITHM 


. 

■ 


■ 


START  I 


CHART  3.  RAY  GENERATION  ALGORITHM 


CHART  4 


DENSITY  AND  TEMPERATURE  PROFILE  ALGORITHM 


■ 


1  15 


CHART  5 


FINE  GRID  STRUCTURE  ALGORITHM 


■ 


START 


CHART  6.  ALGORITHM  FOR  COMPUTING  DENSITY  GRADIENT 


1  17 


CHART  6A 


1  18 


CHART  7.  ENERGY  ABSORPTION  ALGORITHM 


1  19 


CHART  8.  ALGORITHM  FOR  PONDEROMOTI VE  FORCE 


CHART  9.  RAY  TRACING  PROGRAM  ROUTINE 


■ 
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CHART  10.  ALGORITHM  FOR  LOCATING  RAY  IN  THE  REGION  WITH  DENSITY  NqH+R^/AO2) 
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CHART  11.  ALGORITHM  FOR  LOCATING  RAY  IN  THE  REGION  WITH  DENSITY  N0(I+A02/R2) 


123 


CHART  12.  ALGORITHM  LOCATING  RAYS  IN  THE  REGION  WITH  DENSITY  NQ(1-R2/A02) 


i 


124 


CHART  13.  ALGORITHM  FOR  RAYS  GOING  RADIALLY  OUTWARD 


125 


CHART  14.  ALGORITHM  FOR  RAYS  GOING  RADIALLY  OUTWARD 
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CHART  1 


CALCULATE  CONST., 
0#  RMA X’  RNEXT 


(8) 

.YES  , 

ALGORITHM  FOR 

MAXIMUM  RADIAL 

DISTANCE 

CALCULATE  TIME  OF 
TRAVERSE,  AXIAL 
DISTANCE,  AXIAL 
VELOCITY 


(6) 

ALGORITHM  FOR 
HITTING  AXIAL 
GRID  BOUNDARY 


CALCULATE  ABSORB. 
COEF.,  VY,.Vv,  X, 
Y,  6,  V  *  9,YR29 


STEP  UP  SHELL 
NUMBER 


RETURN  TO  ALGOR¬ 
ITHM  FOR  OUTWARD 
RADIAL  VELOCITY 


GIVE  MESSAGE 
FOR  SHELL  NO. 
REACHING  LIMITED 
VALUE 


PRINT  RAY 
TRAJ.  DATA 


.  ALGORITHM  FOR  RAYS  WITH  RADIAL  OUTWARD  VELOCITY  IN  THE  REGION  WITH 
DENSITY  NqO+rVaO2-) 


■ 


) 


* 


‘ 


c 


CHART  16.  ALGORITHM  FOR  RAYS  WITH  RADIALLY  OUTWARD  VELOCITY  IN  THE  REGION 

WITH  DENSITY  PROFILE  Nq(1+A02/R2) 


i 


. 
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CHART  17.  ALGORITHM  FOR  RAYS  WITH  RADIALLY  OUTWARD  VELOCITY  IN  THE  REGION 

WITH  DENSITY  PROFILE  NqO-R^/AO2) 


I 


129 


CALCULATE 

I 


rnext~rshell 


CALCULATE  TIME 
OF  TRAVERSE, AXIAL 
VELOCITY, AXIAL 
DISTANCE 


CALCULATE  ABS. 
COEF.  ,  Vx,  Vy,X, 

Y,6,VR,G,Rae 


* = 

STEP  DOWN  SHELL 
NUMBER  AND  RETURN 
TO  ALGORITHM  FOR 
INWARD  RADIAL 
VELOCITY 


CHART  18. ALGORITHM  FOR  RAYS  WITH  RADIALLY  OUTWARD  VELOCITY  IN  THE  REGION 

WITH  DENSITY  PROFILE  NQ(1+Ra/A02) 


4 . 
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CHART  1 


.  ALGORITHM  FOR  RAYS  WITH  RADIALLY  INWARD  VELOCITY  IN  THE  REGION 
WITH  DENSITY  PROFILE  NQ( 1 -AO^/R2) 


. 


■ 
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CHART  20.  ALGORITHM  FOR  RAYS  WITH  RADIALLY  INWARD  VELOCITY  IN  THE  REGION 

WITH  DENSITY  PROFILE  Nq 0 -R2/AO^) 


. 


' 
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CHART  21.  ALGORITHM  FOR  FINDING  MAXIMUM  RADIAL  POSITION  IN  THE  REGION  WITH 

DENSITY  PROFILE  Nq(1+R2/A02) 


. 


6 


CHART  22.  ALGORITHM  FOR  RAYS  HITTING  AT  AXIAL  GRID  BOUNDARY 


. 


CHART  23.  ALGORITHM  FOR  RAYS  PROPAGATING  IN  THE  REGION  WITH  DENSITY 
PROFILE  N0(I-A02/R2)  [CONSTANT <  0,  VR >  0] 


> 
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CHART  24.  ALGORITHM  FOR  RAY  HITTING  AXIAL  GRID  BOUNDARY  IN  THE  REGION  WITH 
DENSITY  PROFILE  NO(l -AQ2/r2 )  [C0NST>0,  VR>  0] 


c 
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CHART  25.  ALGORITHM  FOR  RAY  HITTING  AXIAL  GRID  BOUNDARY  IN  THE  REGION  WITH 

DENSITY  PROFILE  NO ( I -R2/A02 ) 


■ 


) 
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CHART  26.  ALGORITHM  FOR  RAYS  REACHING  MINIMUM  RADIAL  DISTANCE  IN  THE  REGION 
WITH  DENSITY  PROFILE  N0(I-A02/R2)  [CONSTANT  <0  ] 


. 


138 


CHART  27.  ALGORITHM  FOR  FINDING  MINIMUM  RADIAL  DISTANCE  IN  THE  REGION  WITH 
DENSITY  PROFILE  N0(1-A02/r2)  [CONSTANT  >0,  VR<  0] 
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CHART  28.  ALGORITHM  FOR  RAYS  HITTING  AXIAL  GRID  BOUNDARY  IN  THE  REGION  WITH 
DENSITY  PROFILE  NO(l -A02/R2)  [CONSTANTS,  VR<  0] 


c 
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CHART  29.  ALGORITHM  FOR  RAYS  ATTAINING  THE  MAXIMUM  RADIAL  DISTANCE  IN 
THE  REGION  WITH  DENSITY  PROFILE  NO ( 1 -A02/r2) 

[CONSTANT  <0,  VR>  0] 


CHART  30.  ALGORITHM  FOR  RAYS  HITTING  AT  THE  AXIAL  GRID  BOUNDARY  IN  THE 
REGION  WITH  DENSITY  PROFILE  N0(1-A02/R2) 

[CONSTANT<  0,  VR>  0] 


V 


' 


' 
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CHART  31  ALGORITHM  FOR  RAY  ATTAINING  MINIMUM  RADIAL  DISTANCE  IN  THE  REGION 
WITH  DENSITY  PROFILE  N0(l-R2/A02) 


. 
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CHART  32.  ALGORITHM  FOR  RAYS  HITTING  THE  AXIAL  GRID  BOUNDARY  IN  THE  REGION 
WITH  DENSITY  PROFILE  N0(1-A02/R2) 

[  CONST  ANT<0,  VR<  0] 
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CHART  33.  ALGORITHM  FOR  DETERMINING  RAY  LOCATIONS  WHEN  THE  RAYS  REACH 
THE  INNERMOST  CORE 


' 


c 
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CHART  33A 


CHART  33B 
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CHART  33C 


CHART  33D 
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CHART  34.  ALGORITHM  FOR  COMPUTING  RAY  TRAJECTORY  WHEN  RAY  LOCATES  INITIALLY 
IN  THE  INNER  CORE 


c 
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CHART  35.  ALGORITHM  FOR  RAY  REACHING  MINIMUM  RADIAL  DISTANCE  IN  THE  REGION 
WITH  DENSITY  PROFILE  N0(1-A02/R2)  [CONSTANTCO,  Vr<  0] 


. 
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CHART  36 


ALGORITHM  FOR  RAYS  TRAVELLING  ALONG  THE  AXIS  OF  PROPAGATION 


. 


c 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1  1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

1 

2 

3 

4 

5 

6 

7 

8 

9 
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12 
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16 

17 

18 

19 

20 

21 

22 

23 
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31 

32 

33 

34 
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36 

37 

38 

39 

40 
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42 

43 
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TESTING  PROGRAM  FOR  THE  RELATED  SUBROUTINES 


NAMELIST  /MAIDAT/TIME.STEP , NBOUND , PWR 1 , PWR2 , PWR3 , T 1 ,T2,T3,T4, 

*NX , M. Z , RO, TO. LO.NO, VLAS , XMIN , LAMDA , DTL , MRMAX .XLAS.DX.TL.F.AO, 
*TOTRA Y , EN 1 

REAL  LAMDA , LO , NO , R ( 30 , 60 ) , N ( 30 , 60 ) , TE ( 30 . 60 ) , E P ( 30 . 60 ) . PWR( 30.60) 

INTEGER  STEP. XMIN. Z.TOTRAY 

COMMON  /LASP/L3,RL0,BMS,NCRIT,TL, DTL, MRMAX 

DATA  PWR/ 1 800*0 . 0/ , EP/ 1 800*0 . 0/ 

RE AD ( 5 , MA I  DAT  ) 

WRITE(6,MAIDAT) 

CALL  PWI NI T ( PWR 1 . PWR2 , PWR3 ,T1,T2,T3,T4.TIME,EN1) 

CALL  DRAY(F. LAMDA, AO, TOTRAY) 

IF  ( STEP . EQ . 1 )  GOTO  1 

CALL  MHDDEN( R , N , TE , NO , RO , NX , M ) 

CALL  GR ID ( R , NX , RO ) 

CALL  DNGR(R,N, LAMDA, NX.RO.NO) 

CALL  RAYABS(M,NX,TE ,T0, LAMDA . LO, Z, XLAS. VLAS, TIME, DX, XMIN) 

1  CALL  ENERGY(TIME, STEP, XMIN, NX, XLAS, VLAS, DX.EP, PWR, N) 

STOP 

END 


PROGRAM  FOR  INITIALIZING  THE  INCIDENT  BEAM  POWER 


SUBROUTINE  PWINIT(PWR1 , PWR2 , PWR3 , T 1 , T2 , T3 . T4 , T I  ME , EN 1 ) 

REAL  INDEX 

COMMON  /DRA YP/XO ( 1 OO ) , YO ( 1 00 ) , THETAX ( 100) , THETAY ( 100) . P( 100) , TOTRA 
*Y, ENIN, PI , EN( 100) 

TEMPORAL  BEAM  PROFILE  IS  SECTIONED  INTO  FOUR  PARTS- -T  1  , T2 , T3 , T4 

IF  ( TIME . GT . T 1 )  GOTO  15 

P1=PWR1*TIME/T 1 

ENO=P 1*0. 5*TIME 

ENIN=EN0-EN1 

EN 1 =ENO 

GOTO  1 

15  IF  (TIME . GT . T2 )  GOTO  16 
P1=PWR1+(PWR2-PWR1 )*(TIME-T1)/(T2-T1) 

ENO=(TIME+TIME-T 1 )*0.5*PWR1+( (PWR2-PWR 1)*(TIME-T1)/(T2-T1))*0.5*(T 
*  I  ME  - T  1  ) 

ENIN=ENO-EN 1 
EN 1 =  ENO 
GOTO  1 

16  IF  (TIME  .GT.  T3)  GOTO  17 
P1=PWR2+(PWR3-PWR2 )  * ( T I  ME -T2 ) / ( T3-T2 ) 

EN0=(TIME+TIME-T1 ) *0 . 5*PWR 1  +  ( T I  ME -T 1 +T I  ME -T2 ) * ( PWR2-PWR 1 ) *0.5+0. 5* 
♦(TIME-T2  )*(P1-PWR2 ) 

ENIN=ENO-EN 1 
EN 1 =  ENO 
GOTO  1 

17  IF  (TIME.GT.T4)  GOTO  18 

P 1=PWR3-PWR3*(TIME-T3)/(T4-T3 ) 

EN0=(TIME  +  TIME-T1 ) *PWR 1 *0 . 5+ ( T IME -T 1 +T I  ME -T2 ) *0 . 5* ( PWR2 -PWR 1 )  +  (TIM 
*E-T2  +  TIME-T3)*0. 5* ( PWR3-PWR2 ) - ( P 1 -PWR2 ) *0 . 5* ( T I  ME -T 3 ) 

ENIN=EN0-EN1 
EN1 =ENO 
GOTO  1 

18  P1=0.0 

1  WRITE(6, 601 )P1 , ENIN 

601  FORMAT(/'POWER='  ,E10. 3./.  'INITIAL  ENERGY= ' , E 10 . 3 ) 

RETURN 

END 
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- - 

C  SUBROUTINE  FOR  GENERATING  A  SET  OF  RAYS  FOLLOWING  THE  GAUSSIAN 
C  DISTRIBUTION 
C 

C  DEVICE  IrSTORE  R**2,Z 

C  2 : STORE  AVERAGE  R**2.Z 

C  3 : STORE  NO.  OF  RAYS  WITHIN  REGION,  RADIUS  SQUARE 

C  4 : STORE  X,Y  CO-ORDINATE  OF  VARIOUS  RAYS 

C  6 : L I  ST  OF  DATA  FOR  RAY  POS I T I ONS , NO . OF  RAYS  IN  DISTINCT  REGION 

C  7 : STORE  X,Y  CO-ORDINATES  OF  VARIOUS  RAYS  AT  LENS  PLANE 

C  8 : STORE  TRANSVERSE  DIRECTIONS  OF  RAYS--THETAX , THETAY 

C  10 : STORE  3DB  POWER  POINTS, Z 

- - 

C 

SUBROUTINE  DRAY ( F , LAMDA , AO , TOTAL ) 

DIMENSION  X( 100) , Y( 100) , THETAX ( 100) , THETA Y( 100 ) , NPT ( 50 ) , P ( 100 ) , 
*RSQ( 50 ) , RNEW( 50 , 100) 

DOUBLE  PRECISION  DSEED , DELT 
REAL  LAMDA, AO 
INTEGER  TOTRAY, TOTAL 

NAMELIST  /RAYDAT/  N , DSE ED , NR  I NG , NP L ANE , NE XTR A , NP L AN  1 , F ACTOR 
COMMON  /DRAYP/X . Y . THETAX , THETAY , P , TOTRAY .ENIN, PI, EN (100) 

RE AD ( 5 , RAYDAT  ) 

TOTRAY  =TOT  AL 

WN=2*3 . 14 159/ (LAMDA* 1 . OE -4 )* FACTOR 

WNAO=WN* AO 

FSPOT  =  F /WNAO 

DZ  =  F/ ( NPLANE  *  1 .0-1.0) 

NR INP5=NRING+5 

WRITE (6, 604 )DSE ED , F SPOT , AO 

604  F ORMAT ( / ' DATA  FROM  PROGRAM  DRA Y '  , / ' DSE ED=  '  , D  1  5 . 8 , / .  '  FOCA L  SPOT  SIZ 
*E='  .E15.8,/,  'BEAM  RADIUS  AT  LENS  PLANE = '  , E  1  5 . 8  ) 

c - 

C  TO  GENERATE  ALL  RAY  LOCATIONS  AND  DIRECTIONS  AT  LENS  PLANE 

C  THE  CHOICE  OF  RAY  LOCATIONS  AND  DIRECTIONS  OBEYS  A  GAUSSIA 

C  N  DISTRIBUTION.  SUBROUTINE  GGNML  GIVES  A  RANGE  OF  RANDOM 

C  NORMAL  DEVIATES  WITHIN  THE  RANGE  (0,1) 

C - 

CALL  GGNML ( DSEED, N.X) 

CALL  GGNML ( DSE  ED , N , Y ) 

CALL  GGNML(DSEED,N, THETAX) 

CALL  GGNML(DSEED,N. THETAY) 


TO  CONVERT  THE  NORMALIZED  VALUES  TO  ACTUAL  VALUES 
RAY  DIRECTIONS  ALWAYS  TAKE  OPPOSITE  SIGNS  TO  LOCATIONS 


DO  201  1=1 ,N 

X(  I  )  =  X(I  )  * AO/ 1  .4142136 

THETAX ( I ) =THETAX ( I )/WNA0/1  .41421  36 -X( I  )/F 
Y ( I ) =  Y ( I ) *  AO/ 1 .4142136 

THETAY ( I ) =THET  AY ( I )/WNA0/1 .41421  36 -Y(I)/F 
P(I)=P1/(N* 1 .0) 

EN( I )=ENIN/(N* 1 .0) 

WRITE(4 ,401 )X( I ) , Y( I ) 

WRITE (8 , 401 )THETAX ( I ) .THETAY  (  I  ) 

401  FORMAT ( 2E 1 8 . 10) 

201  CONTINUE 


TO  TRACE  THE  RAY  PATH  (R**2)  ALONG  AXIS 


NP LANE =NP LANE +NEXTRA 

FINALZ=(NPLANE* 1 .0- 1 .0)*DZ 

DO  202  J=1 ,N 

DO  203  I=NPLAN1 .NPLANE 

DELT=( 1-1 )*DZ*1 .ODO 

XNEW=X(J)+THETAX(U)*DELT 

YNEW=Y( J)+THETAY( J)*DELT 

RNE W ( I -NPLAN 1+1 , J  )  =XNEW* *2  +  YNEW* *2 

DELT 1 =SNGL( DELT ) 

IF  (ABS(DELTI-FINALZ) .LT. 10E-3)  WR I TE ( 7 , 70 1 ) XNEW , YNE W 
701  FORMAT ( 2E 1 8 . 10) 
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WRITE  (  1  ,  101  )RNEW(  I  -NPLAN 1  +  1  , U  )  , DE  LT 
101  FORMAT ( 2E 18 . 10) 

203  CONTINUE 
X( J)=XNEW 
Y ( J ) = YNEW 
202  CONTINUE 


C  TO  CALCULATE  THE  AVERAGE  SPOT  SIZE  AT  EACH  AXIAL  PLANE 

C  AND  NO.  OF  RAY  POINTS  WITHIN  A  DEFINED  BEAM  AREA  AT  A 

C  PARTICULAR  PLANE 

c - 

DO  204  I=NPLAN1 .NPLANE 
RSQSUM=0 . 0 
DELT= ( I -  1 ) *DZ* 1 .000 
WRITE (6, 606) 

€06  FORMAT ( / '  AVE  .  SPOT  SIZE',5X,'  AXIAL  DISTANCE') 


AVERAGE  SPOTSIZE  SQUARE 


DO  205  J=1,N 

205  RSQSUM=RSQSUM+RNEW(  I  -  NPLAN  1+  1  ,  J) 
RSQAVE=RSQSUM/(N* 1 .0) 

WRITE (2,  101 ) RSQAVE , DE  LT 
WRITE (6 , 101 )  RSQAVE, DELT 


CORRESPONDING  RADIAL  DISTANCE 


SP0TSQ  =  FSP0T**2+(DELT-F  )  *  * 2/WN* *2/F SPOT  *  *  2 
SPOTSQ=SPOTSQ/NRING 
DO  206  K  = 1 .NRINP5 
RSQ(K)=K*SPOTSQ 
NPT ( K  )  =0 
206  CONTINUE 


TO  CATEGORIZE  RAY  LOCATIONS  INTO  VARIOUS  REGIONS 


DO  207  L=  1  ,N 
DO  208  M= 1 , NR  I NP5 

IF  (RNEW( I-NPLAN1+1 , L) . GT .RSQ(M) )  GOTO  208 
NPT (M)=NPT(M)+1 
GOTO  207 
208  CONTINUE 
207  CONTINUE 


SUM  UP  POINTS  AT  CORRESPONDING  RADIUS 


WR I TE ( 6 , 607 ) 

607  FORMAT ( //  '  RAY  PTS.  DIST.  RADIUS  SQUARE 

♦'THEORETICAL  POINTS') 

SUM=0 . 0 
VAR  =0 . 0 

DO  209  11  =  1, NR  I NP5 
SUM  =  SUM+NPT( 1 1  ) 

RAD  =  N* ( 1 -EXP( -RSQ( 1 1  )/RSQAVE)) 
VAR=VAR+(RAD-SUM)**2/RAD**2 
WRITE(3,  101 ) SUM , RSQ (II  ) 

IF  (ABS(SUM-63.0) . LE .2.0)  WRITE ( 10, 101 )RSQ( 1 1 ) , DELT 
WR I TE ( 6 , 605 ) SUM ,RSQ(II),RAD 
605  FORMAT ( 3E 1 8 . 10) 

209  CONTINUE 

VAR = VAR/NR INP5 
WRITE (6 , 608 )VAR 

608  FORMAT(/'VARIANCE=' , E 1 5 . 8  ) 

204  CONTINUE 

RETURN 

END 
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- - 

C  SUBROUTINE  FOR  CALCULATING  DENSITIES  AND  TEMPERATURE  IN  EACH  CELL 
C  AND  THE  CORRESPONDING  RADIUS 
C 

C  DEVICE  2 : DENSITY  VALUE , NORMALI ZED  RADIUS, 

C  6 : L I  ST  I NG  OF  DATA 

C  1  1  :  TAPE  DEVICE 

- - 

C 

SUBROUTINE  MHDDEN( R , N , TE , AX  I  DEN , PASRAD , ZSTEP , PL ASE L ) 

REAL  R(30,60) ,N(30,60) ,TE(30,60) 

INTEGER  ZSTEP, PLASEL 
DR=PASRAD/( PLASEL* 1.0) 

A1=0. 337769221**2 
A2=0 . 185919614**2 
A3= 1 . 88710445 1**2 
A4  =0 . 356427765**2 
DO  201  1=1,6 
R( I , 1  )  =  I *DR/PASRAD 


CCR--CELL  CENTRE  RADIUS 

N- -  PARABOLIC  DENSITY  PROFILE 


CCR= (1-0.5) *DR 

N( I ,  1 )  =  ( 1 +CCR*  *  2/A  1  )*0. 997 36208 3E 18 
TE ( I , 1 ) =50/ ( 1+EXP( (CCR-2 ,0)/0. 1 ) ) 
201  CONTINUE 

DO  204  1=7,9 
R ( I , 1 ) = I *DR/PASRAD 
CCR  = ( I -0. 5)*DR 

N( I , 1 ) = ( 1-A2/CCR**2 )*3 . 059522465E 1 8 
TE ( I . 1 )=50/( 1 +EXP ( (CCR-2 .0)/0.  1  )  ) 

204  CONTINUE 

DO  205  1=10,14 
R ( I . 1 ) = I *DR/P ASRAD 
CCR= ( I -0 . 5  )  *DR 

N( I , 1 )=( 1-CCR**2/A3)*2 . 5882051 27 E 18 
TE ( I ,  1 ) =  50/ (  1 +  E  XP ( (CCR-2 ,0)/0.  1 ) ) 

205  CONTINUE 

DO  206  1=15,30 
R ( I . 1 ) = I *DR/P ASRAD 
CCR  = ( I-0.5)*DR 

N( I , 1 )=( 1+A4/CCR**2 )* 1 . 763802596E 1 8 
TE ( I , 1 ) =50/ ( 1+EXP ( (CCR-2 ,0)/0. 1 ) ) 

206  CONTINUE 


ASSIGN  RADIUS  AND  DENSITY  IN  THE  AXIAL  DIRECTION 


DO  202  J=2, ZSTEP 
DO  203  1=1 , PLASEL 
R ( I . J  )  =R ( I  ,  1  ) 

N ( I , J)=N( 1,1) 

TE ( I , J  )  =TE ( I  ,  1  ) 

203  CONTINUE 
202  CONTINUE 

WR I TE ( 6 , 604 ) 

604  FORMAT(/ 'DATA  FROM  PROGRAM : R I CKMHDDEN ' ) 

WRITE (6, 605) AX  I  DEN, PASRAD. ZSTEP, PLASEL 

605  FORMAT(/ 'AXIAL  DENS  I T Y ( NORMA L I  ZED ) = '  . E  1  5 . 8 , / ,  ' PL A SMA  RAD  I  US = '  ,  E 1 5  . 
*8,/,  'AXIAL  STEPS='  , 13,/,  'PLASMA  SHE L LS = '  . I  3/ ) 

WR I TE ( 6 , 602 ) 

602  FORMAT (  '  SHELL  RAD  I  US ( NORMAL  I  ZED )  '  , 5X ,  '  SHELL  DENSITY  ',5X,'SHEL 
* L  TEMPERATURE '  ) 

WR I TE ( 6 , 603 ) ( R ( I , 1 ) , N( I , 1 ) , TE ( I , 1 ) , I = 1 .PLASEL) 

603  FORMAT ( E 15 . 8,15X,E15.8,7X,E15.8) 

DO  20  1=1, PLASEL 

RN=R ( I . 1 )*PASRAD-0. 5iDR 
WR I T  E ( 2 , 103 )N( I ,  1 ) , RN 
103  FORMAT ( 2E 18 . 10) 

20  CONTINUE 
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TO  STORE  UNFORMATED  DATA  ON  TAPE 

WR I TE (  1  1  )  N 

RETURN 

END 


ALGORITHM  FOR  DIVIDING  THE  PLASMA  LAYERS  INTO  FINER 
SHELLS  (2  SUBSHELLS  FOR  EACH  LAYER) 


SUBROUTINE  GR I D ( R , NX , RO ) 
DIMENSION  RDEN0R(3O,6O) ,R(30,60) 
REAL  N 

NAMELIST  /GRIDAT/LASHEL 


LASHEL - NO.  OF  PLASMA  SHELLS  TAKEN  FOR  A  FINER  DIVISION 


COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 , 60 ) , LASHEL 
READ( 5 , GRIDAT  ) 

WR I TE ( 6 , GR IDAT  ) 

DO  208  J  = 1 ,NX 
DO  209  1=1 , LASHEL 
RDENOR ( I . J)=R( I , J)*RO 
209  CONTINUE 
208  CONTINUE 

DO  201  J= 1 , NX 


DIVIDE  EACH  OF  THE  3RD  AND  ABOVE  PLASMA  LAYER  INTO  2  SMALLER 
LAYERS 


DO  202  1=3. LASHEL 

DR  I  =RDENOR  (  I  ,  J  ) -RDENOR  (  I  -  1  ,  «J  ) 

DR  I M 1 =RDENOR ( I  -  1 , J ) -RDENOR ( I -2 . J ) 

DRS=DR I +  DR I M 1 

RMID=(DRI/DRS )* RDENOR ( I  -  1 . J ) + ( DR  I M 1 /DRS  )  * RDENOR ( I , J) 

I2M1=2*I-1 

I 2M2=2* I -2 

R2( I2M1 . J)=RMID 

R2( I2M2 , J)=RDENOR( I- 1 . J) 

202  CONTINUE 


DIVIDE  THE  1ST  LAYER 

INTO 

2  SMALLER 

LAYERS 

R2( 1 , J)=0.5*RDEN0R(  1  .  J) 

DIVIDE  THE  2ND  LAYER 

INTO 

2  SMALLER 

LAYERS 

R2 ( 2 , J ) =RDENOR ( 1 ,U) 

R2( 3 . J)=0. 5* (RDENOR (2 , J)+RDENOR( 1 , J) ) 
R2(60, J)=RDENOR( 30. J) 

201  CONTINUE 

WRITE  (6,601) 

601  FORMAT( 'SHELL  LAYER'. 5X,'  SHELL  RADIUS  ') 
LIMIT =2*LASHEL 

DO  203  1=1. LIMIT 
WRITE(6,602)I,R2(I , 1 ) 

602  F0RMAT(8X , 13, 5X , E 15 . 8 ) 

203  CONTINUE 

RETURN 

END 
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C  - 

C  SUBPROGRAM  FOR  CALCULATING  DENSITY  GRADIENT  AND  REFRACTIVE  INDEX  BET- 
C  WEEN  TWO  KNOWN  DENSITIES 

C  A  PARABOLIC  INCREASING  DENSITY  PROFILE  IS  USED  FOR  APPROX  I  MAT  I  ON , NAME L Y , 
C  N  =  NO ( 1+R**2/AO**2  ) 

C  CONSTANTS  NOI,AOI  ARE  COMPUTED  FOR  THE  EVALUATION  OF  OMEGA  (THE 
C  SPATIAL  FREQUENCY) 

c  - 

SUBROUTINE  DNGR ( R , N , LAMDA , NX . RO . NO ) 

DIMENSION  RDENOR( 30, 60) , N( 30 , 60 ) , R ( 30 . 60 ) 

INTEGER  ZSTEP , FLAG 

REAL  N , NO  I , LAMDA , LAMTA , NDENOR , NO , KA 
NAMELIST  /DNGDAT /FRACTN 


FRACTN - AXIAL  DENS  I TY/ 1  ST  SHELL  DENSITY 


COMMON  /GRIDP/R2( 60 , 60 ) . OMEGA ( 60 , 60 ) , LASHEL 
COMMON  /DNGRP/RI (60.60) , CR I  DEN , F L AG ( 60 . 60 ) 

COMMON  /DNGRP 1 /NDENOR ( 30 , 60 ) 

COMMON  / ABSOB/ A0ISQ(60, 60 ) ,N0I(60,60) ,LOCX( 100, lOO) ,LOCY( 1O0. 100) , 
*K  A  ( 100. 100) 

READ(5 .DNGDAT ) 

WRITE(6, DNGDAT) 

L AMT  A  =  LAMDA  *  1  .OE-4 

CR I DEN  =  9 . 1095E -28*3 .  14159*9. OE 20/ (LAMTA**2*( 4 . 8032 E-  10) **2 ) 


DENORMALIZING  THE  RADIUS  AND  DENSITY 


DO  210  J=1 ,NX 
DO  211  1=1, LASHEL 
RDENOR ( I . J)=R( I , J)*RO 
NDENOR  (  I  ,  J)=N(  I  ,  vJ  )  *N0 
211  CONTINUE 
210  CONTINUE 

LIMIT  =  L ASHE  L -  2 
DO  205  U= 1 .NX 
SL0PE1=N(2. J)-N( 1 ,J) 

SL0PE3  =  SL0PE  1 
DO  201  1=1 .LIMIT 
SL0PE2=N( I+2.J)-N(I+1,J) 

I2M1 =2*1  -  1 
12=2*1 
1 2P  1  =2* I  +  1 

IF  (SL0PE1 .LT. 0.0. OR. SL0PE2.LT. 0.0)  GOTO  5 


TEST  FOR  DENSITY  AT  BOUNDARY  REGION  BETWEEN  TWO  SHELLS 


IF(SL0PE2  .  LT . SLOPE  1  . AND . SL0PE3 . LT . SLOPE  1 )  GOTO  1 
IF  (SL0PE2.LT. SL0PE1 )  GOTO  2 
GOTO  1 

5  IF(SL0PE1  .GT. 0.0. AND. SL0PE2.LT. 0.0)  GOTO  2 
IF  ( SLOPE  1 . LT .0.0. AND . SL0PE2 . GT .0.0)  GOTO  4 
IF  (SL0PE2.GT.SL0PE1 .AND.SL0PE3.GT.SL0PE1 )  GOTO  3 
IF  (SL0PE2.GT.SL0PE1 )  GOTO  4 
GOTO  3 


PARABOLIC  INCREASING  DENSITY  APPROXIMATION 


1  SL0PE3*SL0PE 1 
SLOPE 1=SL0PE2 

AOISQ(  I2,J)  =  (NDEN0R(  I  ,  «J)*R2(  I2P  1  ,  U  )  *  *2 -NDENOR  (  I+1,J)*R2(I2M1,J 
*)**2)/(NDEN0R( 1+1 , U ) -NDENOR ( I , U) ) 

NO  I ( I  2 , J ) = NDENOR ( I , J  )  / ( 1 +R2 ( I 2M 1 , U ) *  * 2/ AO  I SQ ( 12 , J) ) 

OMEGA (I2,U)  =  SQRT( NO  I ( I  2 , d ) *9E20/ (CRIDEN*AOISQ( 12. J) ) ) 

R I  ( I  2  ,  J  )  =SQRT  (  1-N0KI2,  J)/CRIDEN) 

FLAG( 12. J)=1 

AOISQ(  I2P1  ,<J)=AOISQ(  12, U) 

NO  I ( I  2  P 1 , J ) =N0 1 ( 1 2 , J ) 

OMEGA( I2P1 ,J)=OMEGA( 12, U) 

R I ( I 2P  1  , J)=RI ( 12 , U) 
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FLAG(I2P1 , J)=FLAG( 12, J) 
GOTO  201 


NON-PARABOLIC  INCREASING  DENSITY  APPROXIMATION 


2  SL0PE3  =  SL0PE  1 
SLOPE  1 =SL0PE2 

TERM1=NDEN0R(I+1  ,d)/R2(I2-1  ,  d  )  *  *  2 
TERM2 =NDEN0R ( I , d)/R2( I2P 1 , d)**2 

AO  I  SO ( 12, d)=(NDENOR( 1+1 , J ) -NDENOR ( I , J ) ) / ( TERM  1 -T E RM2 ) 
AOISQ( I2P1 ,J)=AOISO( 12, J) 

NO I ( I  2 , J ) = NDENOR ( I ,d)/(1-A0ISQ(I2,d)**2/R2(I2M1,d)**2) 
NO I ( 1 2P 1 , d ) =N0 1 ( I  2 . d ) 

R I ( 1 2 , d ) =SQRT ( 1 -NO I ( 1 2 , d ) /CR I  DEN ) 

R I  (  I 2P 1 , d ) =RI ( 1 2 , d  ) 

F  L AG( 1 2 , d  )  =2 

FLAG( I2P1 ,d)=FLAG( 12 , d) 

GOTO  201 


PARABOLIC  DECREASING  DENSITY  APPROXIMATION 


3  SL0PE3=SL0PE 1 
SLOPE  1=SL0PE2 

A0ISQ(I2,d)=( NDENOR ( I ,d)*R2( I2P1 , d ) **2-NDEN0R( I+1.d)*R2(I2M1,d)** 
*2 )/( NDENOR ( I , d ) -NDENOR (1+1 , d) ) 

NO  I ( I  2 , d ) = NOE NOR ( I , d )/( 1 -R2( I2M 1 , d  )  * *2/A0I SQ( I  2 . d ) ) 

OMEGA( 12 , d)  =  SORT( NO  I ( I , d  )  *9E20/ ( CR I  DEN* AO  I SQ( 12 ,d) ) ) 

R I ( I  2 , d  )  =  SORT ( 1 -NO  I ( 12 , d)/CRIDEN) 

FLAG( I  2 , d )  =  3 

AO  I  SO ( I2P1 , d)  =  AOISQ( 12 , d) 

NO  I ( I  2  P 1 ,d)*NOI( 12. d) 

OMEGA ( 1 2P 1 , d ) =OMEGA ( I  2 , d ) 

RI(I2P1 ,d)=RI(I2,d) 

F  LAG( I  2  P 1 ,d)  =  FLAG( 12, d) 

GOTO  201 


NON-PARABOLIC  DECREASING  DENSITY  APPROXIMATION 


4  SL0PE3=SL0PE 1 
SLOPE  1  =SL0PE2 

T 1 =NDENOR ( I,d)/R2(I2P1,d)**2 
T2=NDEN0R ( 1+1 ,d)/R2( I2M1 , d)**2 

AO  I  SO ( I  2 , d )  =  ( NDENOR ( I + 1 , d ) -NDENOR ( I,d))/(T1-T2) 

AOI S0( I2P 1 ,d)=A0IS0(I2,d) 

NO  I ( I  2 , d ) =NDENOR ( I . d)/( 1 +A0 1 S0( I  2 , d ) /R2 ( I 2M 1 , d)**2 ) 

N0KI2P1  ,d)*NOI  (12, d) 

RI ( 12 , d)  =  SORT( 1 -NO I ( 1 2 , d ) /CR I  DEN ) 

R I ( I 2P 1 ,d)*RI(I2,d) 

FLAG( I  2 , d  )  =  4 

FLAG( I  2  P 1 , d ) =FLAG( 12, d) 

201  CONTINUE 

SLOPE  1 = NDENOR (LASHEL.d) -NDENOR ( LASHE  L -  1  , d ) 

IF  ( SLOPE  1 . LT .0.0)  GOTO  7 

TERM1 =NDENOR( LASHE L,d)/R2( LASHE L*2-3,d)**2 

TERM2  =NDENOR ( LASHE  L -  1 , d ) /R2 ( LASHE L *  2  -  1 ,d)**2 

AOI SO(LASHEL*2-2,d)=(NDENOR( LASHEL.d) -NDENOR ( LASHE L-1 ,d) )/ 

* ( TERM  1 -TERM2 ) 

NO  I ( LASHE L*2-2,d)=NDENOR( LASHE L-1 ,d)/( 1 - AO  I  SO ( L ASHE L *2 -2 . d ) *  * 
*2/R2(LASHEL*2-3,d)**2) 

FLAG(LASHEL*2-2,d)=2 

RI (LASHEL*2-2,d)=S0RT( 1-NOI(LASHEL*2-2 ,d)/CRIDEN) 

GOTO  8 

7  T1=NDEN0R(LASHEL-1 , d ) /R2 ( LASHE L *2 -  1 , d ) * *2 
T2=NDEN0R(LASHEL , d)/R2(2*LASHEL-3,d)**2 

AOI SQ( LASHE L*2-2 , d )=( NDENOR ( LASHE L , d ) -NDENOR ( LASHE L- 1 . d) ) 
*/(T1-T2) 

NO I ( LASHE  L*2-2 ,d)=NDEN0R(LASHEL-1 , d)/(  1 + AO  I  SO ( L A  SHE L *  2  -  2 , d ) *  *  2 
*/R2(LASHEL*2-1 ,d)**2) 

RI (LASHE L *2-2, d)=SORT( 1 -NO  I ( LASHEL*2-2 . d )/CRIDEN ) 
FLAG(LASHEL*2-2,d)=4 
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8  AO  I  SO  (  LASHEL*2-  1  ,  <J  )  =  AO  I  SO  (  L  ASHE  L  *2  -  2  .  J  ) 
AO  I  SO (  LASHEL*2  .  J  )  =  AO  I  S0(  LASHE  L  *  2- 2  ,  <J  ) 

NO  I  (LASHEL*2-  1  ,  U)=NOI  (  LASHEL*2-2  ,  J  ) 

NO  I  (  L  ASHE  L  *2  ,  «J)=NOI  (  LASHEL*2~2  ,  «J  ) 
RI(LASHEL*2-1 . U  )  =R I ( L ASHE L*2- 2 , J) 
RI(LASHEL*2,«J)=RI(LASHEL*2-2,<J) 
FLAG(LASHEL*2- 1 , J ) =FLAG( LASHEL*2-2 , 0 ) 
FLAG(LASHEL*2,«J)=FLAG(LASHEL*2-2,J) 


C  THE  INNERMOST  SHELL  IS  ASSUMED  TO  HAVE  A  PARABOLIC  DENSITY 

C  THE  OUTERMOST  SHELL  IS  ASSUMED  TO  HAVE  A  NON-PARABOLIC 

C  DECREASING  DENSITY  PROFILE 

c  - 

AO  I  SO ( 1 , J )  =  FRACTN*  R2 ( 1 , U)**2/( 1-FRACTN) 

NO  1(1  , J  )  =FRACTN*NDENOR ( 1 , J) 

OMEGA ( 1 . J)=SORT(NOI(  1 , U ) * 9E 20/ ( CR I  DEN* AO  I  SO (  1 , J) ) ) 

R I ( 1 , U)=SORT( 1 -NO  I (  1 , J)/CRIDEN) 

FLAG ( 1 , J)=1 
OMEGA ( 2*  LASH E  L , U ) =0 . 0 
OMEGA ( 2*L ASHE L- 1 ,U)=0.0 
OMEGA (2*LASHEL-2 , U)=0.0 

205  CONTINUE 
WRITE ( 6 , 601 ) 

601  FORMATS  FLAG  5X REFRACTIVE  INDEX',5X,'  A0I**2 

*  '  ,  5X ,  '  NO  I  '  ) 

LASH2  =  2  *  LASHE  L 
DO  206  1=1, LASH2 

WRITE  (6,602)  F L AG ( I ,  1  )  ,  R I ( I ,  1 ) , AO  I  SO ( I ,  1  )  , NO  I ( I  ,  1 ) 

602  FORMAT (8X ,I3,9X.E16.8,5X,E15.8,5X,E15.8) 

206  CONTINUE 
RETURN 
END 
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c  - 

C  SUBROUTINE  FOR  ENERGY  ABSORPTION  IN  CORR .  PLASMA  CELLS 

c  - 

SUBROUTINE  ENERGY (TIME . STEP, XMIN.NX , XL AS, VLAS , OX , EP, LASPWR ,N) 

REAL  LASPWR ( 30 , 60 ) , EP ( 30 , 60 ) , KA , N( 30 , 60 ) , PONDR ( 30 , 60 ) , P0NDZ(30,60) 

INTEGER  TOTRAY , STEP ,X , RXMIN, XMIN 

COMMON  /LASP/L3 , RLO , BMS , NCR  IT , TL , DTL , MRMAX 

COMMON  /PWRAY/AO 

COMMON  / ABSOB/ AO I  SO (60, 60) ,N0I(60,60) ,LOCX( 100,  100) ,LOCY( 100,  100) 

* ,KA( 100, 100) 

COMMON  /DRAYP/XO( 100) , Y0( 100) , THETAX ( 100) ,THETAY( 100) ,P( 100) .TOTRA 
*Y, ENIN, PI , EN( 100) 

COMMON  /RAYENP/NPTS( 100) , VSUM( 100) 

IF  (STEP . EQ. 1 )  GOTO  1 
‘DO  207  d  = 1 , 60 
DO  208  1=1,30 
LASPWR ( I , J)=0.0 
EP ( I , J ) =0 . O 
208  CONTINUE 
207  CONTINUE 

1  WR I T  E ( 6 , 60 1 ) 

601  FORMAT ( / '  CELL  LOCATION  ' , 5X , '  POWER  IN  CELL  ', 

*5X,  'ENERGY  IN  CELL  '  ,5X,/,3X,  'X'  ,7X,  ' Y ' ) 


C  POWER  AND  ENERGY  CALCULATION 


DO  204  MARK=1 , TOTRAY 
NLAS=60 

dJ=NPTS(MARK)-1 
PIN=P(MARK) /NPTS ( MARK ) 

ENI NI =EN( MARK )/NPTS( MARK) 

LIMIT =NPTS( MARK) 

DO  202  K=2, LIMIT 

POWER=PIN 

ENER=ENINI 

IF  (LOCX(MARK,K- 1 ) . LT . LOCX(MARK.K) )  GOTO  2 
I X= I F I  X ( ( LOCX ( MARK , K- 1 )- 1 )/2 .0)+ 1 
GOTO  3 

2  IX=IFIX(L0CX(MARK,K-1 )/2 ,0)+1 

3  LASPWR ( IX , LOCY ( MARK , K- 1 ) )=LASPWR( IX , LOCY ( MARK , K- 1 ) )+POWER 

EP( IX , LOCY (MARK , K- 1 ) ) =EP( I  X , LOCY ( MARK , K- 1 ) )  +  ENER*( 1  - E XP ( -KA ( MARK  ,  K 

*))) 

ENER=ENER*EXP(-KA(MARK,K) ) 

POWER = POWE R* EXP ( -KA( MARK, K) ) 

202  CONTINUE 

204  CONTINUE 

DO  205  J= 1 ,60 
DO  206  1=1,30 

IF  (LASPWR( I ,J) .NE ,O.O.OR.EP(I , J) . NE .0.0)  GOTO  4 
GOTO  206 

4  WRITE (6, 602) I , d, LASPWR ( I ,d),EP(I,d) 

602  FORMAT ( 1X,I3,5X,I3,8X,E15.8,5X,E15.8,5X,E15.8) 

206  CONTINUE 

205  CONTINUE 

WR  I TE (  12)  EP 

c - 

C  TO  CALCULATE  THE  RADIAL  AND  AXIAL  PONDE ROMOT I VE  FORCE 

c - 

CALL  PONDER ( LASPWR , VLAS , NL AS , DX , PONDR , PONDZ ) 

RETURN 

END 

FILE 
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c - 

C  PROGRAM  FOR  CALCULATING  THE  RADIAL  AND  AXIAL  PONDEROMOT I VE  FORCE 

C  IN  INDIVIDUAL  CELLS 

C - 

SUBROUTINE  PONDER (P , VLAS ,NLAS , DX , PONDR , PONDZ ) 

REAL  P ( 30 , 60 ) , PONDR ( 30 , 60 ) , PONDZ ( 30 , 60 ) , LASHEL , NDENOR , AVE I ( 30 , 60 
*  ) 

COMMON  /GRIDP/R2( 60 , 60 ) , OMEGA ( 60 , 60 ) .LASHEL 
COMMON  /DNGRP/R I (60,60) .CRIDEN, FLAG (60, 60) 

COMMON  /DNGRP 1 /NDENOR ( 30 , 60 ) 


TO  FIND  PONDEROMOTIVE  FORCES  AT  THE  CELLS  AWAY  FROM  THE 
BOUNDARY 


DO  201  U= 1 , NL AS 
DO  202  1=2,30 

AVE  I  (  I,d)=P(I,d)/(3.14159*(R2(2*I  ,  d  )  *  *  2 -R2  (  2  *  (  I-1),d)**2)) 
202  CONTINUE 

AVE I ( 1 , J)=P( 1 , d)/(3. 14159*R2(2, d)**2) 

201  CONTINUE 

NLASM1 =NLAS- 1 
DO  203  J  =  2 , NL ASM  1 
DO  204  1=2.29 

PIU  =  0. 5*  (AVE  I  ( 1  +  1  ,  d  )  +AVE I  ( I  ,  d  )  ) 

P I L=0 . 5  * ( AVE I ( I , d)+AVEI ( I  -  1 , U) )  ' 

CU  =  VLAS*SQRT(  1 -O . 5  * ( NDENOR ( I , d)+NDENOR( 1  +  1 . J) ) /CRIDEN) 
CL=VLAS*SQRT  (  1 -0 . 5*  (  NDENOR  (  I  , d)+NDENOR(  1-1  ,  d)  ) /CRIDEN) 
PILEFT=(  AVE  I  (  I  ,  J-  1  )  +  AVE  I  (  I  ,  <J  )  )  *0 . 5 
PIRITE  =  ( AVE I ( I , d+1 )  +  AVE I ( I , d)  )*0.5 

CLEFT  =  VLAS*SORT(  1 -0 . 5  * ( NDENOR ( I , U- 1 )+NDENOR ( I  . J)  ) /CRIDEN) 
CRITE=VLAS*SQRT( 1 -O . 5* ( NDENOR ( I , U+ 1 ) +NDENOR ( I  ,  d ) ) /CRIDEN) 
DIDR=(PIU/CU-PIL/CL)/(R2(2*I , J ) -R2 ( 2* ( I  -  1 ) , J ) ) 
DIDZ=(PIRITE/CRITE-PILEFT/CLEFT)/DX 
PONDR ( I , d ) = -0 . 5*NDEN0R ( I , d  ) /CR I DEN*D I  DR* 1 .0E7 
PONDZ ( I  , J)  =  -0. 5*NDEN0R( I . J ) /CR I DEN*D I DZ *  1  .0E7 
204  CONTINUE 


TO  FIND  VALUES  AT  THE  INNERMOST  LAYER 
LAYER  1 


P I LEFT= ( AVE I ( 1 ,d-1 )+AVEI ( 1 ,U) )*0.5 
PIRITE  =  ( AVE I ( 1 , d+ 1  )  +  A VE I ( 1 , U) )*0. 5 

CLEFT  =  VLAS*SQRT (  1 -0 . 5* (NDENOR (  1 ,U-1 )  +  NDENOR ( 1  ,d) ) /CRIDEN) 
CRITE=VLAS*SQRT(  1 -0 . 5* ( NDENOR ( 1 , J+ 1 )+NDENOR (  1 , J)  ) /CRIDEN) 
D IDZ  =  (PIR I TE/CRITE -PI  LEFT/CLEFT )/DX 
PONDR ( 1 ,U)=0.0 

PONDZ ( 1 , J )  =  -  0 . 5* NDENOR (  1 , U  )/CRIDEN*DIDZ* 1  .0E7 


TO  FIND  POND.  FORCES  FOR  LAYER  30 


P I LE  FT= ( AVE I ( 30, J-1 )  +  AVEI ( 30, U) )*0. 5 
PIRITE=( AVE I ( 30, d+1 )+AVEI ( 30, d) )*0. 5 

CLEFT =VLAS*SQRT( 1 -0 . 5* ( NDENOR ( 30 , d- 1 )+NDENOR ( 30 , d ) ) /CRIDEN) 

CRITE=VLAS*SQRT( 1 -O . 5* ( NDENOR ( 30 , U+ 1 )+NDENOR ( 30 , d ) ) /CRIDEN) 

DIDZ=(PIRITE/CRITE-PILEFT/CLEFT)/DX 

PONDZ ( 30 , d )  =  -  0 . 5  * NDENOR (30,d)/CRIDEN*DIDZ* 1  .0E7 

PIU=0.5*AVEI ( 30 , d ) 

PIL=0.5*(AVEI(30,d)+AVEI(29,d) ) 

CU  =  VLAS*SORT( 1 -0 . 5*NDEN0R ( 30 , d ) /CR I  DEN ) 

CL = VLAS* SORT ( 1 -0 . 5* (NDENOR ( 30 , d )+NDENOR ( 29 , d) ) /CRIDEN) 
DIDR=(PIU/CU-PIL/CL )/ ( R2 ( 60 , d ) -R2 ( 58 , d ) ) 

PONDR ( 30, d)  =  -0. 5*NDEN0R( 30, d ) /CR I DEN*D I  DR *  1 .0E7 
203  CONTINUE 


POND. FORCES  AT  COLUMN  ONE 


DO  207  1=2,29 

PIU=0. 5* ( AVE I ( 1+1,1 ) +AVE I ( 1,1)) 

P I L  =  0 . 5* ( AVE I ( I ,  1  )  +  AVEI ( 1-1 .  1 ) ) 

CU= VLAS* SORT ( 1 -0 . 5* ( NDENOR ( I , 1 )+NDENOR ( 1+1,1) ) /CRIDEN) 
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CL = VLAS* SORT ( 1 -0 . 5 *( NDENOR ( I , 1 )+NDEN0R( 1-1,1) )/CRIDEN) 
PI  LEFT  =  AVE I ( 1,1) 

PIRITE  =  (  A VE  I  ( I  ,  2  HAVE  I  (  I  ,  1  )  )  *0 . 5 
CLEFT=VLAS*SQRT ( 1 -0 . 5*NDEN0R( I , O/CRIDEN) 
CRITE=VLAS*SQRT( 1 -0 . 5* ( NDENOR ( I , 2 ) +NDEN0R ( I , 1 ) )/CRIDEN) 
DIDR=(PIU/CU-PIL/CL)/(R2(2*I ,  1  )-R2(2*( I  -  1  )  ,  1 ) ) 

DIDZ  = ( PI R I TE/CRITE-PI LEFT/CLEFT )/DX 

PONDR ( I ,  1 )  =  -0. 5 ‘NDENOR ( I ,  1  ) /CR I DEN*D I  DR  *  1  .0E7 

PONDZ ( I , 1 )=-0 . 5*NDEN0R( I , 1 )/CRIDEN*DIDZ* 1 .0E7 


TO  FIND  FORCES  AT  COLUMN  NLAS 


PIU=0. 5*( AVEI ( 1+1 , NLAS )+AVE I ( I , NLAS ) ) 

P I L=0 . 5* ( AVE I ( I , NLAS )+AVE 1(1-1 , NLAS ) ) 

CU  =  VLAS*SQRT( 1 -O . 5* ( NDENOR ( I , NLAS )+NDENOR ( I + 1 , NLAS ) ) /CR I  DEN ) 

CL  =  VLAS* SORT ( 1 -0 . 5* ( NDENOR ( I , NLAS ) +NDENOR ( I  -  1 , NLAS ) )/CRIDEN) 
PILEFT=( AVEI ( I , NLA SMI )+AVEI ( I , NLAS ) )*0. 5 
PI RITE=AVE I ( I , NLAS) *0.5 

CRITE  =  VLAS*SQRT(  1 -0 . 5  *NDENOR ( I , NLAS ) /CR I  DEN ) 

CLE FT = VLAS* SORT ( 1 -0 . 5* ( NDENOR ( I , NLAS ) +NDENOR ( I , NLASM 1 ) )/CRIDEN) 
DIDR=(PIU/CU-PIL/CL)/(R2(2*I , NLAS ) -R2 ( 2  * ( I  -  1 ) .NLAS) ) 

DIDZ=( PI R I TE/CRITE-PI LEFT/CLEFT )/DX 

PONDR (I  ,NLAS)=-0. 5 ‘NDENOR ( I , NL AS ) /CR I DEN*D I  DR  *  1 .0E7 
PONDZ ( I ,NLAS)=-0. 5*NDEN0R( I , NLAS ) /CR I DEN*D I DZ* 1 .0E7 
207  CONTINUE 


TO  FIND  FORCES  AT  CORNER  CELLS 


P I U=0. 5* AVE I (30, NLAS) 

P I L=0 . 5* ( AVE I ( 30, NLAS )+ AVE I (29, NLAS ) ) 

CU  =  VLAS*SQRT (  1 -0 . 5 ‘NDENOR ( 30 , NLAS ) /CR I  DEN ) 

CL=VLAS*SQRT( 1 -O . 5* (NDENOR ( 30 , NLAS )+NDENOR ( 29 , NLAS ) )/CRIDEN) 

P I  LEFT  =  ( AVE I (30, NLASM 1 )  +  AVE I ( 30 , NLAS ) )*0. 5 
PI  RITE  =  AVEI (30,NLAS)*0. 5 

CRITE=VLAS*SQRT( 1 -0 . 5 ‘NDENOR ( 30 , NLAS ) /CR I  DEN ) 

CLEFT =VLAS*SQRT( 1 -O . 5* ( NDENOR ( 30 . NLAS ) +NDENOR ( 30 , NLASM 1 ) )/CRIDEN) 
DIDR=(PIU/CU-PIL/CL)/(R2(60,NLAS)-R2( 58 ,NLAS) ) 

DIDZ=( PIRI TE/CRITE-PI LEFT/CLEFT )/DX 

PONDR (30, NLAS) =-0.5 ‘NDENOR ( 30 , NLAS ) /CR IDEN*DIDR* 1 .0E7 
PONDZ ( 30 , NLAS ) =-0 . 5* NDENOR ( 30 ,NLAS)/CRIDEN*DIDZ* 1 .0E7 


TO  FIND  POND. FORCES  AT  CELL(1,30) 


PILEFT=( AVEI ( 1 , NLASM 1 )+AVEI( 1 .NLAS) )*0.5 
P I R I TE  =  A VE I ( 1 .NLAS) *0.5 

CRITE  =  VLAS*SORT( 1 -0 . 5 ‘NDENOR ( 1 , NLAS ) /CR I  DEN ) 

CLE FT = VLAS* SORT ( 1 -0 . 5* ( NDENOR ( 1 , NLAS )+NDENOR ( 1 , NLASM 1 ) )/CRIDEN) 
DIDZ= (PIRITE/CRITE-PI LEFT/CLEFT )/DX 
PONDR ( 1 , NLAS ) =0 . O 

PONDZ (  1 ,NLAS)=_0. 5 ‘NDENOR (  1 . NLAS ) /CR I DEN*D I DZ *  1  .0E7 


TO  FIND  POND. FORCES  AT  CELL(30,1) 


PIU=0. 5*AVEI ( 30 , 1 ) 

PIL=0.5*(AVEI (30, 1 )+AVE 1(29, 1)) 

CU=VLAS*SORT( 1 -0 . 5*NDEN0R ( 30 , 1 )/CRIDEN) 

CL=VLAS‘SORT( 1-0. 5* (NDENOR (30, 1 )+NDEN0R(29, 1 ) )/CRIDEN) 
PILEFT=AVEI (30, 1 ) 

PIRITE=(AVEI (30, 2)+AVEI (30, 1 ) )*0. 5 
CLEFT  =  VLAS*SQRT( 1 -0 . 5*NDEN0R( 30,  1  )/CRIDEN) 
CRITE=VLAS‘SORT( 1 -0 . 5* ( NDENOR ( 30 , 2 ) +NDENOR ( 30 ,  1  ))/CRIDEN) 
DIDR=(PIU/CU-PIL/CL)/(R2(60,  1  )-R2(58,  1 ) ) 

DI DZ=( PI RITE/CRITE -PI  LEFT/CLEFT )/DX 

PONDR (30, 1 )= -0.5 ‘NDENOR (30, 1 )/CRIDEN*DIDR* 1 .0E7 

PONDZ (30, 1 )=-0. 5*NDEN0R(30, 1 ) /CR I DEN*D I DZ* 1 .0E7 


TO  FIND  POND.  FORCES  AT  CELL(1,1) 


PI  LEFT  =  AVE I (  1,1) 

P I R I TE  =  ( AVE 1(1 , 2 ) + A VE I ( 1 , 1 ) )*0.5 


' 

, 
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14  1 

CLEFT=VLAS*SQRT(  1-0. 5*1 

142 

CRITE=VLAS*SQRT ( 1-0.5* 

143 

DIDZ=(PIRITE/CRITE-PIL 

144 

PONDR ( 1 . 1 )=0.0 

145 

PONDZ ( 1 , 1 )=-0. 5*NDEN0R 

146 

WR I T  E ( 6 , 600 ) 

147 

600 

FORMAT (/'CELL  LOCATION 

148 

*  E '  , / , 3X ,  ' X '  , 5X ,  ' V  '  ) 

149 

DO  205  J=1 , NLAS 

150 

DO  206  1=1,30 

151 

IF  ( PONDR ( I , J ) .EQ.O.O. 

152 

WR I TE ( 6 , 60 1 )I , J,PONDR( 

153 

601 

FORMAT ( 14 , 2X , 14 . 10X , E 1 

154 

206 

CONTINUE 

155 

205 

CONTINUE 

156 

WR I TE ( 13)  PONDR 

157 

WR I TE ( 14 )  PONDZ 

158 

RETURN 

159 

END 

1  )/CRIDEN) 

, 2 )+NDENOR ( 1 


1  )  ) / CR I  DEN ) 


I  ,  1  )/CRIDEN*DIDZ* 1  .OE7 

5X,  'RADIAL  POND. FORCE'  ,5X,  'AXIAL  POND . FORC 

ID . PONDZ (I.d).EO.O.O)  GOTO  206 
,  <J  )  ,  PONDZ  (  I  ,J) 

. 8 , 6X , E 1 5 . 8 ) 


END  OF  FILE 
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c  - 

C  SUBPROGRAM  FOR  FINDING  THE  RAY  PATH  IN  A  PLASMA  COLUMN  WITH  A  GIVEN 
C  DENSITY  DISTRIBUTION 
C  GEOMETRICAL  APPROACH  IS  USED 

C  THE  INTERSECTING  POINT  BETWEEN  THE  TRAJECTORY  AND  THE  HORIZONTAL 
C  OR  VERTICAL  GRID  IS  COMPUTED 

C  THE  SPATIAL  ADVANCEMENT  OF  THE  RAY  IS  DONE  BY  INCREASING  THE  RADIAL 
C  DISTANCE  UNTIL  MAXIMUM  VALUE  IS  ACHIEVED 

C  THE  ANALYTICAL  EXPRESSIONS  USED  ARE  BASED  ON  A  PARABOLIC  DENSITY 
C  DISTRIBUTION 

C  BOTH  CARTESIAN  AND  CYLINDRICAL  CO-ORDINATES  ARE  USED 

c  - 

SUBROUTINE  RAYABS( M , NX  1 , TDENOR , TO, L AMT A ,ZL,ZATOM,XLAS, VLAS, TIME. 
*DX , XMIN ) 

DOUBLE  PRECISION  X , Y , VX , VY , DHETAY , DHETAX . DTZ , DTR , Y 1 1 2 , FETA  1 
DOUBLE  PRECISION  FETA2 , FETA3 , FETA4 

DIMENSION  R1( 100, 100) , THETA ( 1 00 . 1 00 ) , Z ( 1 00 , 1 00 ) , T E ( 30 . 60 ) , 
*TDEN0R(30,6O) 

REAL  MTHET  A , NO  I , L AMDA , L AMT  A , KA 
INTEGER  FLAG, TOTRAY .MARK , ZATOM, XMIN , RXMIN 
COMMON  /GRIDP/R2(60,60) , OME GA ( 60 , 60 ) .LASHEL 
COMMON  /DNGRP/RI ( 60 , 60 ) , CR I  DEN , F L AG ( 60 , 60 ) 

COMMON  /DRAYP/XO(  100) . Y0(  100) , THET AX ( 100) , THET AY (  100) , P(  100) .TOTRA 
*  Y , ENIN, PI , EN(  100) 

COMMON  /ABS0B/A0ISQ(6O,6O) , NO I (60,60) , LOCX( 100, 100) , LOCY( 100, 100) . 
*KA ( 100, 100) 

COMMON  /LASP/L3 , RLO , BMS , NCR  I T , TL , DT L . MRMAX 
COMMON  /RAYENP/NPTS( 100) ,VSUM( 100) 

EXTERNAL  F  ETA  1 
EXTERNAL  FETA2 
EXTERNAL  FETA3 
EXTERNAL  FETA4 


INITIALIZATION 


NX  =  NX 1 
C  =  3 . OE 10 

LAMDA=LAMT  A*  1  .OE-4 
DO  203  1=1, TOTRAY 
203  VSUM ( I ) =0 . 0 


DENORMALIZING  THE  ELECTRON  TEMPERATURE 


DO  205  J=1 .NX 
DO  206  1=1 ,M 
TE ( I , J)=TDENOR( I , J)*TO 
206  CONTINUE 
205  CONTINUE 
MARK  =  0 

12  MARK=MARK+ 1 

IF  (MARK. GT, TOTRAY)  RETURN 
KA ( MARK , 1 )=0.0 

IF  ( XO ( MARK ) ,E 0.0.0. AND. Y0( MARK) . EO . O . O . AND . THET AX ( MARK ) . E 0.0.0. AN 
*D . THETAY(MARK) .EQ.O.O)  GOTO  110 
X=XO ( MARK ) 

Y  = YO ( MARK ) 

R1 (MARK,  1  )= SORT ( XO ( MARK )* XO ( MARK )  + YO ( MARK )*Y0( MARK) ) 

THETA (MARK,  1  )  = ANGLE ( X , Y ) 

IF  ( THET  AX ( MARK ) . EO . 0.0. OR . ( THET  AX ( MARK ) . EO .0.0. AND . THET  AY  (  MARK )  .  E 
*0.0.0))  GOTO  13 

DTHETA  =  AT AN( THE  TAX (MARK) /THET AY (MARK) ) 

GOTO  16 

13  VX=0.0 

VY=C*SIN(THETAY(MARK) ) 

VZ=C*COS(THETAY(MARK) ) 

GOTO  15 

14  VX=C*SIN(THETAX(MARK) ) 

VY  =  0.0 

VZ=C*COS( THET AX (MARK) ) 

GOTO  15 


i 
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16  MTHETA=SQRT ( THETAX( MARK )*THETAX( MARK )+THETAY( MARK )*THETAY( MARK) ) 
VY=C*SIN(MTHETA)*COS(DTHETA  ) 

DHET  AY  =  THETAY(MARK) 


VY  HAS  THE  SAME  SIGN  AS  VECTOR  THETAY 


VY=DS I GN( VY , DHET AY ) 

VX=C*SIN(MTHETA)*SIN(DTHETA) 

DHETAX=THETAX(MARK) 


VX  HAS  THE  SAME  SIGN  AS  VECTOR  THETAX 


VX=DS I GN( VX.DHETAX) 

VZ=C*COS( MTHETA  ) 

15  Z ( MARK , 1 )=0.0 
DZ=ZL/NX 1 

ANGVEL=VX ‘COS (THETA (MARK, 1 ) ) -VY*S I N( THETA ( MARK , 1 ) ) 
dd=1 
d  =  1 

LAST=2*LASHEL 


SCAN  OVER  WHICH  PLASMA  SHELL  THE  RAY  HITS 


IF  (R1 (MARK,  1  )  . GT  .  R2(LAST  ,  1 )  )  GOTO  38 

IF  (R 1 (MARK,  1 ) .GT .0. AND . R1 (MARK,  1  ).  LT  .  R2(  1  ,  1  )  )GOTO  1 

DO  201  11=2, LAST 

IF  ( (R1 (MARK,  1 )  .GT  .  R2( 1 1  -  1  ,  1 ) .OR . ABS(R 1 (MARK ,1)-R2(II-1,1)).LT.1.0 
*E-3) . AND . (R1 (MARK,  1 ) . LT . R2( 1 1 ,  1  )  . OR . ABS(R2( 1 1 ,  1 )-R  1  (MARK,  1  )  )  .  LT  .  1  . 
‘OE -3  )  )  GOTO  2 
GOTO  201 
2  I  =  1 1 
GOTO  31 
201  CONTINUE 
1  1  =  1 

31  LOCX ( MARK , 1 ) = I 
LOC Y ( MARK , 1 )=U 
I VAR=FLAG( I , J) 


CHOOSE  THE  APPROPRIATE  KIND  OF  DENSITY  PROFILE 


GO  TO  (31  1  ,  100, 33 ,  100) . IVAR 

31 1  TERM1=(X*X+Y»Y)/2-(VX*VX+VY‘VY)/(2*0MEGA( I  , J) ‘OMEGA ( I , J) ) 
TERM2=(X*VX+Y*VY ) /OMEGA ( I , J) 

D=SQRT(TERM1*TERM1+TERM2*TERM2 ) 

PHI =F I ( TERM  1 , TERM2 ) 

GOTO  34 

100  ANGM0M=R1 (MARK. 1 )*ANGVEL 
GOTO  34 

33  TERM1=(X*X+Y*Y)/2+(VX‘VX+VY*VY)/(2*OMEGA( I  , d)*OMEGA( I , U  )  ) 
TERM2=(X*VX+Y»VY ) /OMEGA ( I , J) 

TERM3  =  R 1 (MARK , dd ) * R 1 ( MARK , dd  )  +  ( VX * VX  + V Y * VY  ) / ( OMEGA ( I  , d  ) ‘OMEGA ( I  , d  ) 
* ) -TERM  1 

IF  (TERM2 . LT .0.0)  GOTO  4 
GOTO  3 

34  VR=VX*SIN(THETA(MARK,dd) ) +VY ‘COS ( THETA ( MARK , dd ) ) 

I F ( ABS ( R 1 ( MARK , 1 ) -R2 ( I , 1 ) ) . LT . 1 . OE -3 . AND . ( VR . GT . 0 . 0 ) )  1=1+1 
IF  (VR.LT.O.O)  GOTO  4 


RAY  GOES  AWAY  FROM  THE  AXIS 


3  dd=dd+1 

IF  (dd .GT . 100)  GOTO  37 
IF  ( I . EO . 1 )  GOTO  993 
I VAR=FLAG( I , d ) 

GO  T0( 30,  101 . 35 ,  1  1  1  )  , IVAR 
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c - 

C  RAY  CALC. (UP)  WITH  A  PARABOLIC  INCREASING  DENSITY 

C  PROFILE  APPROXIMATION  N  =  NO (  1 +R  “  2/ A  “  2 ) 

C - 

30  TERM1=(X*X+Y‘Y )/2-(VX‘VX+VY*VY )/ (2*0MEGA( I , J)*OMEGA( I , J) ) 
TERM2=(X*VX+Y*VY )/OMEGA( I , J) 

D  =  SORT ( TERM  1 ‘TERM  1 +TERM2 ‘TERM2 ) 

PHI =F I ( TERM  1 , TERM2 ) 

RMAX=BIGR(R1 (MARK, JJ-1 ) . VX , VY , D  ,  I  ,  J  ) 

R1 (MARK, J J  )  =  R2 ( I , J ) 

IF  ( R 1 (MARK, JJ) .GT . RMAX )  GOTO  5 

TR=RTIME(R 1 (MARK, JJ- 1 ) , R 1 ( MARK , J J ) . VX , VY , I , J , PHI , D ) 

VZ=DSQRT(RI ( I , J ) *RI ( I , J  )  *9 . 0D20-VX*VX -VY *VY -OMEGA ( I , J) ‘OMEGA (  I  . J ) 
“R1  (MARK,  (JJ-  1  )*R1  (MARK  ,  JJ-  1  )*  1  .000) 

Z  (  MARK  ,JJ)=VZ‘TR+Z(MARK,JJ-1  ) 

IF  (Z(MARK, JJ) .GT. J*DZ)  GOTO  6 
VSUM (MARK)=VSUM(MARK)+VZ 

CALL  AB SORB ( MARK, R1 (MARK, JJ- 1 ) , Z ( MARK , J J- 1 ) , DZ , TR , VX , VY , PHI , LAMDA . 
*TE,D, I , J. JJ.ZATOM) 

VXO=VX 
VYO= VY 

VX=XVEL(X,VXO,TR, I , J) 

VY=YVEL(Y, VYO.TR, I , J) 

X=XCOOR(X, VXO.TR, I , J) 

Y=YCOOR(Y, VYO.TR, I , J ) 

GOTO  36 

C - 

C  RAY  CALC. (UP)  WITH  A  PARABOLIC  DECREASING  DENSITY 

C  PROFILE  APPROXIMATION  N  =  NO(  1 -R“2/A“2  ) 

C - 

35  R1 (MARK, JJ)=R2( I , J) 

TERM1  =  ( X*X+Y»Y  )/2+( VX*VX+VY*VY  )/( 2*0MEGA( I , J ) *OMEGA ( I , J )  ) 
TERM2=(X*VX+Y*VY) /OMEGA ( I , J) 

TERM3=R 1( MARK, JJ)*R1( MARK, J J )+( VX ‘VX+VY *VY )/( OMEGA ( I , J)‘OMEGA( I , J) 
* ) -TERM  1 

TERM4=TERM1-(VX*VX+VY*VY  )/( OMEGA ( I , J ) ‘OMEGA ( I , J ) ) 

NC=0 

TR  =  HTIME (TERM  1  , TERM2 , TERM3 , I , J , NC ) 

IF  (TR.LT.O.O.OR. NC . EO .  1  ) GOTO  39 

VZ  =DSQRT ( R I (I  , J ) *RI ( I , J ) *9D20-VX*VX-VY‘VY+0MEGA ( I  , U) ‘OMEGA ( I  , J) 
*‘R1(MARK, JJ-1 )*R1(MARK, JJ-1 )*1 .ODO) 

Z(MARK,JJ)=VZ*TR+Z(MARK,JJ-1  ) 

IF(Z(MARK, JJ) . GT . d*DZ )  GOTO  11 

VSUM ( MARK )=VSUM( MARK )+VZ 

CALL  ABSOB 1 (MARK . TR , VX , VY , VZ , LAMDA , TE , 

•TERM  1 , TERM2 , I . J , J J , ZATOM , Z ( MARK , J J- 1 ) ,DZ) 

VXO=VX 

VYO=VY 

VX=HXVEL(X, VXO.TR, I , J) 

VY=HYVEL(Y, VYO.TR, I , J ) 

X=HXCOOR(X, VXO.TR. I .J) 

Y=HYCOOR(Y, VYO.TR, I , J) 

36  THETA(MARK.JU) = ANGLE ( X , Y ) 

VR = VX‘SIN( THETA ( MARK. JJ) )+VY‘COS( THETA (MARK, JJ) ) 

ANGVE L=VX ‘COS ( THE TA( MARK, JJ) ) -VY * S I N ( THETA ( MARK , J J ) ) 

ANGMOM=R 1 (MARK, J J ) * ANGVE L 
LOCX(MARK,JJ)=I 
LOCY(MARK,JJ)=J 
1  =  1+1 

IF  ( I . GT . LAST )  GOTO  32 
GOTO  3 

c - 

C  RAY  CALC.  (UP)  WITH  A  NON-PARABOLIC  INCREASING 

C  DENSITY  PROFILE  N  =  NO(  1 -A“2/R“2  ) 

C  CONST >0 . O  OR  <0.0,  VR>0.0 

c - 

101  CONST  =  ( ANGM0M‘ANGM0M-9E20*N0I ( I , J ) * AO  I  SO  (  I  , J)/CRIDEN) 
IF(CONST.LT.O.O)  GOTO  105 
112  R1  (MARK, JJ)=R2( I , J) 

TR  =  TIMEPP( R  1  (MARK, JJ- 1 ) , R 1 ( MARK , J J ) . VR .CONST ) 

VZ  =  SQRT  (  (  R I  (  I  ,  J)*3E  10  )  “2-VR*VR- (  ANGMOM/R  1  (MARK  ,  JJ  -  1  )  )“2  ) 
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Z(MARK.JJ)=VZ*TR+Z( MARK, JJ-1 ) 

IF  (Z(MARK.JJ) . GT . J*DZ)  GOTO  102 
VSUM ( MARK  )=VSUM( MARK )+VZ 

CALL  AB0B2P ( MARK , R 1 (MARK , JJ- 1 ) , Z ( MARK , J J- 1 ) , DZ , TR , VR , CONST . LAMDA , 
*TE, I , J, JJ.ZATOM) 

DTR=TR* 1 . ODO 

IF  (IVAR.E0.2)  GOTO  1121 

CALL  DOG 3 2 ( 0 . DO ,DTR,FETA3,Y112) 

GOTO  1122 

1121  CALL  D0G32 ( 0 . DO ,DTR,FETA1,Y112) 

1122  THETA ( MARK, JJ) =THETA (MARK, JJ-1 )  +  Y1 1 2 * ANGMOM 

VR  =  SQRT( VR*VR- CONST* ( 1 / ( R 1 ( MARK , JJ ) *R 1 (MARK , JJ ) ) -  1 / ( R 1 ( MARK , J J- 1 ) * 
*R  1  ( MARK , J  J- 1  )))) 

VT=ANGM0M/R1 (MARK , JJ) 

VX  =  VR*SIN( THETA ( MARK, JJ)  )  +  VT* COS (THETA (MARK , JJ) ) 

VY=VR*COS ( THETA ( MARK, JJ) ) - VT * S I N ( THE T A ( MARK , J J ) ) 

X=R1 (MARK, JJ)*SIN( THETA (MARK, JJ) ) 

Y=R1 (MARK, JJ)*COS (THETA (MARK, JJ) ) 

LOCX ( MARK , J J ) = I 
LOCY(MARK,JJ)=J 
1  =  1+1 

IF  ( I . GT . LAST )  GOTO  32 
GOTO  3 


RAY  CALC. (UP)  FOR  A  NON- PAR ABOL I C  DECREASING  PROFILE 
N  =  NO (  1+A**2/R**2  ) 


1 1 1  CONST = ( ANGM0M*ANGM0M+9E2O*N0I ( I , J)*AOISQ( I , J)/CRIDEN) 

GOTO  112 
32  WR I TE ( 6 , 604 ) 

604  FORMAT(/' *****  THE  RAY  GOES  OFF  THE  PRESCRIBED  PLASMA  SHELLS  FOR 
•BEAM  CALCULATION  *****'/) 

GOTO  666 
39  JJ=JJ_1 

WR I TE ( 6 , 606 ) 

606  FORMAT (/'*****  ray  DOES  NOT  PENETRATE  THE  PLASMA  *****'/) 

GOTO  666 

37  JJ=JJ-1 

WR  I  T  E ( 6 , 6 1 0 ) 

610  FORMAT(/' *****  ATTENTION - STORAGE  FOR  RAY  LOCATION  OVERFLOW  ***** 

*, INCREASE  STORAGE  '/) 

GOTO  666 

38  WRITE(6 .61  1  ) 

611  FORMAT(/'*****ATTENTION - RAY  IS  OUT  OF  THE  PLASMA  SHELLS  RANGE*** 

***'/) 

GOTO  12 


RAY  GOES  TOWARDS  INNER  SHELLS 


4  IF  (I .EO.  1  )  GOTO  9 
JJ=JJ+1 

IF  ( JJ.GT . 100)  GOTO  37 
IVAR=FLAG( I , J) 

GO  TO  (42, 103,41,113), IVAR 


RAY  CALC. (UP)  WITH  A  PARABOLIC  INCREASING  DENSITY 
PROFILE  APPROXIMATION  N  =  NO (  1 +R *  *  2/ A  *  *  2  ) 


42  TERM1  =  (X*X  +  Y*Y)/2-(VX*VX  +  VY*VY)/(2*0MEGA( I  , J  ) ‘OMEGA ( I , J ) ) 
TERM2=(X*VX+Y*VY )/OMEGA( I , J) 

D  =  SQRT ( TERM  1 ‘TERM  1 +TERM2 *TERM2 ) 

PHI=FI (TERM1 .TERM2 ) 

RMIN=SMALR(R1 (MARK, JJ- 1 ) , VX , VY , D , I , J ) 

R 1 ( MARK , J J ) =R2 ( 1-1 , J) 

IF  (R1 (MARK, JJ ) . LE . RMIN)  GOTO  7 

TR=RTIME ( R 1 (MARK, JJ- 1 ) , R 1 (MARK, JJ) , VX , VY , I , J.PHI ,D ) 

VZ  =  DSQRT ( R I ( I , J)**2*9D20-VX*VX-VY*VY -OMEGA ( I , J) ‘OMEGA  (  I  ,  J) 
* *R1 (MARK, JJ-1 )*R1( MARK, JJ-1 )*1  ODO) 

Z( MARK , JJ ) =VZ*TR+Z ( MARK , JJ- 1 ) 

IF  (Z(MARK, JJ) .GT . J*DZ)  GOTO  6 
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/ 


VSUM(MARK )=VSUM(MARK )+VZ 

CALL  ABSORB (MARK , R 1 ( MARK , dd- 1 ) . Z ( MARK , dd- 1 ) , DZ , TR . VX , VY , PHI , L AMD A , 
*TE , D , I , d , dd , Z ATOM ) 

VXO=  VX 
VYO=VY 

VX=XVEL(X, VXO.TR, I ,d) 

VY=YVEL(Y,VYO,TR, I ,d) 

X=XCOOR(X, VXO.TR, I ,d) 

Y=YCOOR( Y , VYO , TR , I ,d) 

GOTO  40 


RAY  CALC. (UP)  WITH  A  PARABOLIC  DECREASING  DENSITY 
PROFILE  APPROXIMATION  N  =  NO (  1  -R *  *  2 / A  *  *  2  ) 


41  R1(MARK.dd)=R2(I-1 ,d) 

TERM1=(X*X+Y*Y)/2+(VX*VX+VY»VY)/(2*OMEGA( I ,d)*OMEGA( I ,d) ) 
TERM2=(X*VX+Y*VY)/0MEGA( I ,d) 

IF  ( TERM  1  . LT . TERM2  )  GOTO  39 

TERM3  =  R 1 (MARK . dd  )  **2  + ( VX *VX+VY *VY ) /OMEGA ( I.d)**2-TERM1 
TERM4  =  TERM1-(VX*VX  +  VY*VY )/( OMEGA ( I  , d  )  ‘OMEGA ( I  , d) ) 
RMIN=TERM1-(VX*VX+VY*VY ) /OMEGA ( I , d ) *  * 2+SQRT ( T E RM 1  *  *  2  - T E RM2 *  *  2 ) 

IF  (RMIN. LT .0.0)  GOTO  39 
RMIN=SQRT ( RMIN) 

IF  ( R  1  (MARK, dd) . LT . RMIN)  GOTO  43 
NC  =  0 

TR  =  HTIME( TERM  1 , TERM2 , TERM3 , I , d . NC ) 

IF  (TR.LT.O.O.OR.NC.EQ. 1)  GOTO  39 

VZ  =DSQRT ( R I ( I  , d ) “2*9D20-VX*VX-VY*VY  +  0MEGA( I  , d  )  *  OMEGA ( I  , d ) 

* *R1 ( MARK, dd- 1 )*R1( MARK, dd-1 )*1 .ODO) 

Z ( MARK, dd)=VZ*TR+Z( MARK, dd- 1 ) 

IF ( Z(MARK, dd) . GT . d*DZ )  GOTO  11 

VSUM( MARK ) =VSUM( MARK )  +  VZ 

CALL  ABSOB 1 ( MARK , TR , VX , VY , VZ . LAMDA , TE . 

♦TERM  1 , TERM2 , I , d, dd, ZATOM, Z ( MARK , dd- 1 ) , DZ ) 

VXO=VX 
VYO= VY 

VX  =HX VE  L ( X , VXO , TR , I  , d ) 

VY=HYVEL( Y , VYO , TR , I , d ) 

X  =  HXCDOR ( X , VXO , TR , I  , d ) 

Y  =  HY  COOR ( Y . VYO , TR , I , d ) 

40  THETA(MARK,dd)=ANGLE(X, Y) 

VR  =  VX *  SI N( THETA (MARK, dd )  )  +  VY * COS ( THE T A ( MA RK , dd ) ) 

ANGVE L=VX*COS( THETA ( MARK, dd ) ) - V Y * S I N ( THET A ( MARK . dd ) ) 

ANGMOM  =  R 1 ( MARK, dd ) * ANGVE L 
1  =  1-1 

LOCX(MARK,dd)=I 
LOCY (MARK , dd )=d 
GOTO  4 

C - 

C  RAY  CALC. (DOWN)  WITH  NON-PARABOLIC  INCREASING  PROFILE 

C  N  =  NO(  1-A“2/R“2) 

C  VR<0.0, CONST >0.0  0R<0.0 

C - 

103  CONST  = ( ANGMOM* ANGMOM-9E2O*N0I ( I  , d  )  *AOISO( I  ,d)/CRIDEN) 

IF  (CONST . LT . 0.0)  GOTO  107 

104  RMIN=SQRT( ( R 1 ( MARK , dd- 1  )  *  *  2 ‘CONST ) / ( ( R 1 ( MARK , dd- 1  ) * VR ) “2  +  CONST ) ) 
R 1 (MARK. dd)=R2( I  -  1 . d) 

IF  (RI(MARK.dd) .LT.RMIN)  GOTO  106 
TR=TIMEPN( R 1 (MARK, dd- 1 ) , R 1 (MARK , dd) , VR , CONST ) 

VZ  =  SQRT ( (RI ( I , d)*3E 10 ) *  *  2  - VR * VR - ( ANGMOM/R 1 ( MARK , dd- 1  )  )  * *2  ) 

Z ( MARK, dd)=VZ*TR  +  Z( MARK, dd- 1  ) 

IF  (Z(MARK,dd)  .GT.d*DZ)GOTO  1021 
VSUM(MARK ) =VSUM( MARK)+VZ 

CALL  AB0B2P ( MARK , R 1 ( MARK , dd- 1 ) , Z ( MARK , dd- 1 ) , DZ , TR , VR , CONST , LAMDA , 
*TE , I ,d,dd, ZATOM) 

DTR=TR* 1 .ODO 

IF  (IVAR.E0.2)  GOTO  1041 

CALL  DOG32(O.DO,DTR,FETA4,Y1 12) 

GOTO  1042 

1041  CALL  DOG 3 2 ( 0 . DO .DTR.FETA2.Y112) 

1042  THET A ( MARK, dd)=THETA( MARK, dd-1 )+Y1 12* ANGMOM 
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VR  =  - SORT ( VR*VR -CONST *(  1 /R 1 ( MARK , J J ) *  * 2- 1 /R 1 ( MARK , J J- 1  )  *  * 2  )  ) 
VT  = ANGMOM/R 1 ( MARK , JJ  ) 

VX=VR*SIN( THETA ( MARK, JJ) ) +VT *COS ( THETA ( MARK , JJ ) ) 

VY  =  VR *COS( THETA (MARK, J J ) ) - VT * 5 1 N ( THET A ( MARK , J J ) ) 

X  =  R 1 (MARK, JJ) *5  IN (THETA (MARK, JJ) ) 

Y=R1 (MARK, JJ)*COS( THETA (MARK. JJ)  ) 

1  =  1-1 

LOCX(MARK, JJ)=I 
LOCY(MARK,JJ)=J 
GOTO  4 


RAY  CALC. (UP)  WITH  NON-PARABOLIC  DECREASING  PROFILE 
N=NO ( 1  +  A  *  *2/R*  *  2  ) 


1 13  CONST  = ( ANGMOM* ANGM0M+9E2O*N0 1 ( I , U ) * AO  I SQ ( I , J)/CRIDEN) 
GOTO  104 


RAY  REACHES  MINIMUM/MAXIMUM 
N=NO ( 1+R**2/A**2 ) 


7  R1(MARK,UJ)=RMIN 
GOTO  8 

5  R1 (MARK, JJ)=RMAX 

8  TR=RT IME ( R 1 (MARK, JJ- 1 ) , R 1 ( MARK , JJ ) , VX , VY , I , J , PHI , D ) 

VZ=DSORT(RI ( I , J)**2*9D20-VX* VX-VY*VY -OMEGA ( I , J)*OMEGA( I . J ) 

**R1 (MARK, JJ- 1  )**2*  1  . ODO) 

Z(MARK, JJ)=VZ*TR+Z(MARK, JJ- 1  ) 

IF  (Z(MARK, JJ) .GT. J*DZ)  GOTO  6 
VSUM( MARK )=VSUM( MARK )+VZ 

CALL  ABSORB ( MA RK, R1 (MARK , JJ- 1 ) , Z ( MARK , JJ- 1 ) , DZ , TR , VX , VY , PHI . L AMD A , 
*TE , D , I . J, JJ, ZATOM) 

VXO=VX 

VYO=VY 

VX=XVEL(X,VXO,TR, I , J) 

VY=YVEL(Y,VYO,TR, I . J) 

X=XCOOR(X,VXO,TR, I , J) 

Y=YCOOR(Y ,VYO , TR , I . J) 

THETA(MARK,JJ)  =  ANGLE(X, Y  ) 

VR=0 . 0 

ANGVE  L=VX*COS(THETA(MARK, JJ  )  )  - V Y * S I N ( THE T A ( MARK . J J ) ) 

ANGM0M=R1 (MARK, JJ)*ANGVEL 
LOCX(MARK, JJ)=I 
LOCY(MARK,JJ)=J 

IF  (R1 (MARK, JJ- 1 ) .GT . R1 (MARK, JJ) )  GOTO  3 
GOTO  4 


N  =  NO(  1-R**2/A**2  )  FIND  MIN.  RADIUS 


43  R1 (MARK , JJ ) =RMI N 

TR  =  0. 25  * A LOG ( ABS ( TERM  1 + ABS ( T ERM2  )  ) / ( TE RM 1  - AB S ( T E RM2 ) ) )/OMEGA( I  , J) 
VZ  =  DSQRT ( R I ( I , J  )  *R I ( I , J ) *9D20- VX * VX - VY * VY+OMEGA ( I  . J  )  *  OMEGA ( 1  , J) 
**R 1 (MARK, JJ  -  1 )*R 1 (MARK , JJ-  1  )* 1  . ODO) 

Z(MARK,JJ)=VZ*TR+Z(MARK,JJ- 1 ) 

IF(Z(MARK, JJ) .GT. J*DZ)  GOTO  11 

VSUM( MARK ) =VSUM( MARK)+VZ 

CALL  AB SOB  1 (MARK, TR , VX , VY , VZ , LAMDA , TE . 

♦TERM  1 , TERM2 , I . J , JJ . ZATOM , Z ( MARK , JJ- 1 ) ,DZ ) 

VXO=VX 
VYO= VY 

VX=HXVEL( X , VXO , TR , I , J) 

VY=HYVEL(Y,VYO,TR, I , J) 

X=HXCOOR(X, VXO.TR, I , J) 

Y=HYCOOR(Y, VYO.TR, I , J) 

THETA (MARK, JJ)= ANGLE (X, Y) 

VR=VX*SIN(THETA(MARK,JJ) )+VY*COS( THETA (MARK , JJ) ) 

ANGVE L=VX*COS( THET A (MARK , JJ) ) -VY*SIN( THETA ( MARK , JJ) ) 

ANGMOM  =  R 1 ( MARK , J J ) * ANGVE  L 

LOCX(MARK,JJ)=I 

LOC Y ( MARK , J J ) = J 

GOTO  3 
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RAY  HITS  AT  VERTICAL  BOUNDARY 
N=NO ( 1+R**2/A**2 ) 


6  Z(MARK,UJ)=J*DZ 

TZ=(Z(MARK, UJ)-Z(MARK, JJ- 1 ) )/VZ 

R 1 (MARK, JU)=DS0RT(R1 (MARK, JJ- 1 )**2/2 . D0+ ( VX* VX  +  VY* VY ) / ( 2  *OMEGA ( I , J 
* ) *OMEGA ( I , J)  )+D* 1 . ODO*SIN( 2*0MEGA( I,d)*TZ+PHI)) 

CALL  ABSORB (MARK . R1 (MARK, JJ- 1 ) , Z(MARK,UU- 1 ) , DZ , TZ , VX , VY . PHI , LAMDA , 
*TE,D, I ,U, JJ.ZATOM) 

VXO=VX 
VYO= VY 

VX=XVEL(X,VXO,TZ, I ,d) 

VY=YVEL(Y,VYO,TZ, I , J ) 

X=XCOOR(X,VXO,TZ, I , J) 

Y=YCOOR(Y,VYO,TZ, I ,U) 

THETA (MARK, JU)= ANGLE (X, Y) 

VR=VX *SIN( THETA ( MARK, JJ) )  + VY *COS ( THE T A ( MA RK , JU) ) 
ANGVEL=VX*COS(THETA(MARK,JJ) ) -VY»SIN( THETA ( MARK , UJ ) ) 

ANGMOM=R 1 ( MARK , UJ ) * ANGVE  L 
VSUM( MARK )=VSUM( MARK )+VZ 
d  =  J+  1 

LOCX ( MARK , UU ) = I 
LOCY(MARK,JJ)=J 
IF  (U.GT.NX)  GOTO  666 
IF  ( VR . LT . 0 . 0 ) GOTO  4 
GOTO  3 


N=NO ( 1  -R**2/A**2 ) 


11  Z(MARK,JJ)=J*DZ 

TZ=(Z(MARK.JJ)-Z(MARK, JJ- 1 ) )/VZ 
ARG=SINH( 2 * OMEGA ( I , J  )  *TZ ) 

R 1 ( MARK , JJ)=DS0RT(TERM1 * ( 1+DSQRT( 1+ 1 . ODO*ARG* ARG ) )+TERM2*ARG- ( VX** 
*2  +  VY**2 ) /OMEGA ( I , J ) *  *  2 ) 

CALL  ABSOB 1 ( MARK , TZ , VX , VY , VZ , LAMDA . TE , 

♦TERM  1  , TERM2 , I , J, JJ, Z ATOM. Z( MARK , JJ- 1 ) ,DZ ) 

VSUM( MARK )=VSUM( MARK )+VZ 

VXO=VX 

VYO= VY 

VX=HXVEL(X . VXO , TZ . I , J) 

VY  =HYVE  L ( Y , VYO, TZ , I  , J) 

X=HXCOOR(X, VXO.TZ. I , J) 

Y=HYCOOR( Y.VYO.TZ, I , J) 

THETA (MARK, JJ)= ANGLE (X, Y) 

VR=VX*SIN( THETA (MARK , J J ) ) + VY *COS ( THE T A ( MARK , JJ) ) 

ANGVE L=VX*COS( THE TA( MARK, JJ) ) - V Y * S I N ( THET A ( MARK , J J ) ) 

ANGMOM=R 1 (MARK, J J ) * ANGVE L 
J  =  d+  1 

LOCX(MARK,JJ)=I 
LOCY(MARK, JJ)=J 
IF  ( J.GT .NX)  GOTO  666 
IF  (VR . LT ,0.0)GOTO  4 
GOTO  3 


N  =  NO ( 1-A**2/R**2) ,  CONST  <0 . 0 ,  VR>0.0, 


109  Z(MARK,JJ)=J*DZ 

TZ= ( Z (MARK, JJ)-Z( MARK, JJ-1 ) )/VZ 
TEMP1  =  (R1 (MARK, JJ- 1 ) * VR  )  *  *  2  - ABS ( CONST ) 

TEMP® (TZ+R1( MARK, JJ-1 ) * R 1 ( MARK , J J- 1 ) *R 1 ( MARK , J J- 1 ) *VR/TEMP 1 ) * *2 
TEMP =TEMP1 ♦TEMP 1*TEMP/R1( MARK, JJ-1 )+*2 
TEMP=TEMP -ABS( CONST )*R1 (MARK, JJ- 1 )**2 
R1 (MARK, JJ)=SORT( TEMP/TEMP  1 ) 

CALL  AB0B2N(MARK , R 1 ( MARK , J J- 1 ) , Z(MARK, JJ- 1 ) ,DZ , TZ , VR .CONST , LAMDA , 
♦TE , I , J, JJ, ZATOM) 

DTZ  =  TZ*  1  .ODO 

CALL  DQG32 ( 0 . DO .DTZ.FETA1 ,Y1 12) 

THETA(MARK,JJ)=THETA( MARK, JJ-1 )  +  Y1 1 2  * ANGMOM 
VSUM ( MARK ) =VSUM( MARK )+VZ 

VR  =  SORT( VR*VR  + ABS( CONST  )» (  1 /R 1 ( MARK , J J  )  *  *  2- 1 /R  1  ( MARK , J J- 1  )  ♦ *  2  )  ) 
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VT  =ANGM0M/R 1 (MARK, J  J  ) 

VX=VR*S IN( THETA ( MARK, JJ) ) +  VT* COS ( THETA ( MARK . JJ ) ) 
VY=VR*COS( THETA (MARK , JJ) ) -VT * S I N( THETA ( MARK , JJ) ) 
X  =  R1 (MARK, JJ)*SIN( THETA ( MARK, JJ)  ) 

Y=R1 (MARK, JJ)*COS( THETA ( MARK, JJ) ) 

J  =  J-*- 1 

LOCX ( MARK , JJ ) = I 
L0CY(MARK,JJ)=J 
IF  (J.GT.NX)  GOTO  666 
GOTO  3 


N  =  NO ( 1-A**2/R**2) ,  CONST  <0 . O ,  VR<0.0, 


1091  Z(MARK,JJ)=J*DZ 

TZ=(Z(MARK , JJ)-Z(MARK, JJ- 1 ) )/VZ 

TEMP  1  =  ( R 1 (MARK, J J- 1 ) * VR ) *  *  2 - AB S ( CONST ) 

TEMP=(TZ-R1 (MARK, JJ- 1  )*R1(MARK, JJ-1 ) *R 1 ( MARK , J J- 1 ) * AB S ( VR ) /T EMP 1 ) * 
*  *2 

TEMP=TEMP1*TEMP1*TEMP/R1(MARK,JJ- 1 )**2 
TEMP  =  TEMP-ABS( CONST  )*R1 (MARK, JJ- 1  )**2 
R 1 (MARK, JJ)=SQRT( TEMP/TEMPI ) 

CALL  AB0B2N( MARK , R1 (MARK , JJ- 1 ) , Z(MARK, JJ- 1 ) ,DZ , TZ , VR .CONST , LAMDA , 
*TE, I , J, JJ.ZATOM) 

DTZ  =  TZ*  1  .ODO 

CALL  DOG32(O.DO,DTZ,FETA2,Y1 12) 

THETA (MARK, J J ) =THETA ( MARK , JJ-1  )  +  Y1 1 2  *  ANGMOM 

VR=-SQRT( VR*VR+AB S (CONST )*(  1 /R 1 ( MARK , J J ) * *2  -  1 /R 1 ( MARK , J J- 1 ) *  *  2 ) ) 

VT  =  ANGMOM/ R 1 ( MARK , JJ  ) 

VX  =  VR*S IN( THETA ( MARK, J J  )  )  +VT *COS ( THETA ( MARK , J J ) ) 

VY  =  VR*COS(THETA(MARK, JJ)  )  - VT * S I N ( THE T A ( MARK , J J ) ) 

X=R1(MARK, JJ)*S IN( THETA (MARK, JJ) ) 

Y=R1 (MARK, JJ)*COS( THETA (MARK, JJ) ) 

J  =  J+1 

LOCX(MARK, JJ)=I 
LOCY(MARK,JJ)=J 
VSUM( MARK )=VSUM( MARK )+VZ 
IF  (J.GT.NX)  GOTO  666 
GOTO  4 


N  =  NO (  1-A**2/R**2  )  ,  OR  N  =  NO (  1 + A  *  * 2/R *  *  2 ) ,  CONST>0.0,  VR>0.0 


102  Z(MARK,JJ)=J*DZ 

TZ=(Z(MARK, JJ)-Z( MARK. JJ-1 ) )/VZ 
TEMPI  =  (R1 (MARK. JJ- 1 )  * VR  )  *  * 2  +  CONST 

TEMP  =  (TZ  +  R1( MARK, JJ-1 )  *R 1 ( MARK , J J- 1  ) * R 1 ( MARK , J J -  1 ) * VR/T EMP 1  ) *  *  2 
TEMP =TEMP1*TEMP1*TEMP/R1( MARK. JJ-1)**2 
T EMP =TEMP+ CONST *R 1 (MARK , JJ- 1  )  *R 1 ( MARK , JJ-  1  ) 

R 1 (MARK, JJ)=SORT( TEMP/TEMPI ) 

CALL  AB0B2P ( MARK , R 1 ( MARK . J J- 1 ) , Z ( MARK , JJ- 1  )  , DZ , TZ , VR , CONST , LAMDA , 
*TE, I , J, JJ.ZATOM) 

THETA(MARK,JJ)=THETA(MARK , JJ- 1 )  + ANGMOM* TR/R 1  (  MARK , J J ) *  *2 
VSUM ( MARK )=VSUM( MARK )+VZ 

VR  =  SORT  (  VR*VR -CONST  *(  1 /R  1  (  MARK  ,  J  J  )  *  *2- 1 /R  1  (  MARK  ,  J  J- 1  )  *  *  2  )  ) 

VT  =  ANGMOM/R 1 (MARK  ,  JJ ) 

VX  =  VR*SIN( THETA (MARK . J J ) ) +VT *COS ( THETA ( MARK , JJ)  ) 

VY=VR*COS( THETA (MARK , JJ) ) -VT*SIN( THETA ( MARK , JJ )  ) 

X  =  R 1 (MARK, JJ)*SIN( THETA (MARK, J J )  ) 

Y  =  R1(MARK, JJ)*COS (THETA (MARK, JJ)  ) 

J  =  J+1 

LOCX(MARK,JJ)=I 
LOCY(MARK,JJ)=J 
IF  (J.GT.NX)  GOTO  666 
GOTO  3 


N  =  NO (1-A**2/R**2),  CONST  >0 . 0 ,  VR<0.0 


1021  Z(MARK,JJ)=J*DZ 

TZ=(Z(MARK,JJ)-Z( MARK, JJ-1 ) )/VZ 
T EMP 1  =  ( R 1 (MARK, JJ-1  ) *VR ) *  * 2  +  CONST 

TEMP  =  (TZ-R1( MARK, JJ-1  )  *R 1 ( MARK , JJ- 1 ) *R 1 ( MARK , JJ- 1 )* ABS ( VR ) /TEMP  1 ) * 
*  *2 
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TEMP=TEMP 1 *TEMP1*TEMP/R1 (MARK , J  J- 1 )  *  *2 
TEMP=TEMP+CONST*R 1 (MARK, JJ- 1  )  *R 1 ( MARK , JJ- 1 ) 

R1 (MARK, JJ)=50RT( TEMP/TEMPI ) 

CALL  AB0B2P ( MARK , R 1 ( MARK , JJ- 1 ) , Z ( MARK , JJ- 1 ) , DZ , TZ , VR .CONST , LAMDA , 
*TE  ,  I , J, JJ.ZATOM) 

DTZ  =  TZ*  1 .ODO 

CALL  DOG 3 2 (O.DO,DTZ,FETA3,Y1 12) 

THETA (MARK, J J ) =THET A ( MARK , JJ- 1 )  + ANGMOM*  Y 1 12 
VSUM ( MARK )= VSUM ( MARK )+VZ 

VR= - SORT (VR** 2 -CONST *( 1 /R 1 ( MARK , J J ) * *2 -  1 /R 1 ( MARK , J J- 1  )**2)  ) 

VT  =  ANGMOM/R 1 (MARK, JJ) 

VX=VR *S I N( THETA (MARK , JJ) )+VT*COS( THETA ( MARK , JJ ) ) 

VY=VR*COS( THETA (MARK, JJ) ) - VT *S I N( THET A ( MARK, JJ) ) 

X=R 1 (MARK , JJ )*SIN( THETA (MARK, JJ) ) 

Y  =R 1 (MARK, JJ)*COS( THETA (MARK, JJ) ) 
d  =  J+1 

LOCX(MARK,JJ)=I 
LOCY(MARK,JJ)=J 
IF  (J.GT.NX)  GOTO  666 
GOTO  4 

c - 

C  FIND  MAX . /MIN . RADIUS  FOR  THE  PROFILE 

C  N=NO( 1-A**2/R**2 ) 

C 

C  CASE  1  :  CONST <0 . 0  OR  0.0,  VR>0.0,  FIND  MAX.  RADIUS 

c  - 

105  IF  (R1 (MARK. JJ- 1  )  . LE . R2( 1 , J) )  VR  =  ABS(VR) 

RMAX  =  R 1 (MARK , JJ- 1 )  *  * 2  * ABS ( CONST )/( AB S ( CONST )- ( R 1 ( MARK , J J- 1  ) * 

*VR  )  *  *2  ) 

IF  (RMAX . LT .0. 0)  GOTO  1052 

rmax=sort (rmax ) 

GOTO  1051 
1052  RMAX  = 1 . 0E6 
1051  R1(MARK, JJ)=R2(I , J) 

IF  ( R 1 (MARK, JJ) . GT . RMAX )  GOTO  108 
TR=TIMENP(R1 (MARK, JJ- 1 ) , R 1 ( MARK , J J ) , VR , CONST ) 

VZ  =  SQRT ( (RI(I,J)*3E10)**2-VR*VR-( ANGMOM/R 1 ( MARK . J J- 1 ) ) *  *  2 ) 

Z(MARK, JJ)=Z(MARK, JJ-1 )+VZ*TR 
IF  (Z(MARK, JJ)  .GT. J*DZ )  GOTO  109 

CALL  AB0B2N( MARK , R 1 ( MARK , J J- 1 ) , Z ( MARK , JJ- 1 ) , DZ , TR , VR , CONST . LAMDA , 
*  T  E , I , J. JJ, ZATOM ) 

DTR  =  TR*  1  ODO 

CALL  DQG32(O.DO,DTR , FETA  1  , Y  1  12  ) 

VSUM ( MARK  )= VSUM ( MARK )  +  VZ 

THETA ( MARK. JJ)=THETA( MARK, JJ-1 )+Y1 12* ANGMOM 

VR  =  SORT (VR*VR  + ABS (CONST )*(  1 /R 1 ( MARK , J J  )  *  *  2  -  1 /R 1 ( MARK , J J- 1  )**2)  ) 

VT = ANGMOM/R 1 (MARK, JJ) 

VX  =  VR*SIN( THETA ( MARK , JJ )  )  + VT *COS ( THE T A ( MARK , JJ ) ) 

VY=VR *COS( THET A( MARK, JJ) ) - VT * S I N( THE T A ( MARK , J J ) ) 

X=R 1 ( MARK, JJ)*SIN( THETA (MARK, JJ) ) 

Y=R1(MARK, JJ)*COS(THETA(MARK, J J ) ) 

LOCX(MARK,JJ)=I 
LOCY(MARK,JJ)=J 
1  =  1  +  1 

IF  (I  . GT . LAST  )  GOTO  32 
GOTO  3 


CASE  2  :  N  =  NO( 1 -A**2/R**2 )  ,  C0NST<0.0,  VR>0.0,  FIND  MAX.  RADIUS 


108  R 1 (MARK, JJ)=RMAX 

TR=TIMENP(R1 (MARK, JJ- 1  )  , R1 (MARK, JJ) , VR .CONST ) 

VZ=SQRT ( (RI(I , J)*3E 10)* *2-VR*VR-( ANGMOM/R 1( MARK, JJ-1 ) )**2) 
Z(MARK,JJ)=VZ*TR  +  Z( MARK, JJ-1  ) 

IF  (Z(MARK, JJ) .GT. J*DZ)  GOTO  109 

CALL  AB0B2N ( MARK, R1 (MARK, JJ-1 ) ,Z( MARK, JJ-1 ) , DZ , TR , VR , CONST , LAMDA , 
*TE , I , J, JJ.ZATOM) 

DTR  =  TR  *  1 .ODO 

CALL  D0G32(0. DO, DTR , FETA1  , Y 1 12 ) 

VSUM ( MARK )= VSUM ( MARK )+VZ 

THETA (MARK, JJ)=THETA( MARK, JJ-1 )+Y1 12* ANGMOM 
VR  =0 . 0 
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VT=ANGM0M/R 1 (MARK, JJ ) 

VX=VR*S IN( THETA ( MARK , JJ) ) +VT *C0S ( THETA ( MARK . JJ ) ) 
VY=VR*COS(THETA(MARK,JJ) ) -VT*SIN( THETA ( MARK , JJ ) ) 
X=R1 ( MARK, JJ)*SIN( THETA (MARK, J J ) ) 

Y  =  R1 (MARK, JJ)*C0S( THETA (MARK, J J ) ) 

L0CX(MARK,JJ)=I 
L0CY(MARK, JJ)=J 
GOTO  4 


CASE  3:  N  =  NO (1-A**2/R**2),  C0NST<0.0,  VR<0.0,  FIND  MIN.  RADIUS 


107  RMIN=ABS( ANGMOM/ ( R I ( I , J)*3E 10) ) 

R1 (MARK, JJ)=R2( 1-1 , J) 

IF  (R1 (MARK, JJ) . LT.RMIN)  GOTO  120 
TR=TIMENN(R 1 (MARK, JJ- 1 ) , R 1 ( MARK , J J ) , VR .CONST ) 

VZ=SQRT ( ( R I ( I , J)*3E 10)**2-VR*VR-( ANGMOM/ R 1 (MARK , JJ-1 ) )**2) 
Z(MARK,JJ)=VZ*TR+Z( MARK, JJ-1 ) 

IF  (Z(MARK.JJ) . GT . J*DZ )  GOTO  1091 

CALL  AB0B2N( MARK , R 1 ( MARK , JJ- 1 ) , Z ( MARK , JJ- 1 ) , DZ . TR , VR , CONST , L AMD A , 
*TE , I , J, JJ, ZATOM) 

DTR=TR* 1 .ODO 

CALL  D0G32 ( O.DO,DTR,FETA2,Y1 12) 

VSUM ( MARK )= VSUM ( MARK )+VZ 

THETA(MARK,JJ)=THETA (MARK, JJ-1 )+Y1 1 2 ’ANGMOM 

VR =- SQRT( VR*VR+ABS( CONST )*( 1 /R 1 ( MARK , J J ) * *2- 1 /R 1 ( MARK , JJ-1 )**2) ) 
VT  =  ANGMOM/ R 1(MARK,JJ) 

VX=VR* SIN( THETA ( MARK, JJ) )+VT*COS( THETA (MARK . JJ) ) 

VY=VR*COS( THETA (MARK , J J ) ) - VT * S I N ( THE TA ( MA RK , JJ) ) 

X  =  R 1( MARK, JJ)*SIN( THETA ( MARK, J J ) ) 

Y=R1(MARK, JJ)*COS(THETA(MARK, JJ) ) 

1  =  1-1 

LOCX(MARK, J  J  )  =  I 
LOCY(MARK,JJ)=J 
GOTO  4 


CASE  4  :N  =  NO(  1-A**2/R**2)  ,  CONST>0.0,  VR<0.0,  FIND  MIN.  RADIUS 
N  =  NO (  1  + A  *  *  2 /R  *  *  2  ) 


106  R1 (MARK, JJ)=RMIN 

TR=TIMEPN(R 1 (MARK , JJ- 1 ) , R 1 (MARK , JJ ) , VR . CONST ) 

VZ  =  SORT ( ( R I ( I  , J ) *  3E 10 ) * *2  - VR * VR - ( ANGMOM/R 1 ( MARK . JJ- 1 ) ) * *2 ) 
Z(MARK,JJ)=VZ*TR+Z( MARK, JJ-1 ) 

IF  (Z(MARK.JJ) . GT . J*DZ )  GOTO  102 

CALL  AB0B2P ( MARK , R 1 (MARK, JJ- 1 ) , Z(MARK , JJ- 1 ) ,DZ , TR , VR .CONST . LAMDA , 
*TE, I . J, JJ, ZATOM) 

DTR=TR*  1  .ODO 

CALL  DQG32 ( 0 . ODO ,DTR,FETA2,Y112) 

VSUM ( MARK )= VSUM ( MARK )+VZ 

THETA(MARK,JJ)=THETA( MARK, JJ-1 )+Y1 12* ANGMOM 
VR  =0 . 0 

VT= ANGMOM/R 1 (MARK, JJ) 

VX=VR*SIN( THETA (MARK, JJ)  )  +  VT *COS ( THE T A ( MARK , J J ) ) 

VY  =  VR*COS( THETA (MARK, J J )  ) -VT * S I N ( THETA ( MARK , JJ ) ) 

X=R 1 (MARK . JJ)*SIN( THETA (MARK , JJ) ) 

Y =R 1 ( MARK, JJ)*COS( THE TA( MARK, JJ) ) 

LOCX(MARK,JJ)=I 
LOCY(MARK,JJ)=J 
GOTO  3 

120  WR ITE(6,612) 

612  FORMAT(/'*****RAY  REACHES  THE  LOWEST  LIMIT  AND  ROTATES  AROUND  THE 
♦AXIS*****'/) 

R1(MARK, JJ)=RMIN 

TR=TIMENN(R1 (MARK, JJ-1 ) ,R1(MARK, JJ) , VR , CONST) 

VZ  =  SQRT ( ( R I ( I , J)*3E 10 )** 2- VR *VR -( ANGMOM/R 1 ( MARK , J J- 1 ) ) *  * 2 ) 

Z(MARK, JJ) =VZ*TR  +  Z( MARK, JJ-1  ) 

IF  (Z(MARK.JJ)  ,GT.J*DZ)  GOTO  1091 

CALL  AB0B2N( MARK , R 1 ( MARK , JJ- 1 ) , Z ( MARK , J J- 1 ) , DZ . TR , VR , CONST , LAMDA , 
*TE , I , J, JJ, ZATOM) 
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VSUM(MARK)=VSUM(MARK)+VZ 

THETA (MARK, JJ)=THETA (MARK, JJ- 1 )+ANGMOM*TR/R 1 (MARK  dd)**2 
GOTO  666 

- - 

C  ALGORITHM  FOR  FINDING  RAY  LOCATIONS  WHEN  IT  REACHES  THE  INNER 

C  MOST  CORE  SHELL 

- - 

9  dd=dd+ 1 

IF  (dd.GT. 1 00 ) GOTO  37 
VDOTR  =  X  *  VX  + Y  * VY 

TR1=D SORT ( VDOTR *VD0TR+(R2( 1 , J ) *  R2 ( 1 ,J)-R1(MARK,JJ-1 )**2)*(VX*VX+VY 
*  * VY  )  ) 

TR1=-VD0TR-SIGN(TR1 .VDOTR) 

TR1=TR1/(VX*VX+VY*VY ) 

TR=-2*VD0TR/ (VX**2+VY**2) 

VZ=DSQRT (RI(I,d)*RI(I, d)*9E20-VX*VX-VY*VY ) 

Z(MARK , dd ) =Z(MARK , dd- 1  )  +  VZ*TR/2 
IF  (Z(MARK.dd) .GT.J*DZ)  GOTO  94 
GOTO  96 

c  - 

C  RAY  HITS  VERTICAL  BOUNDARY  BEFORE  IT  REACHES  THE  MINIMUM 

C  - 

94  Z(MARK,dd)=d*DZ 

TZ=( Z(MARK . JJ)-Z(MARK , JJ- 1 ) )/VZ 
VSUM( MARK )=VSUM( MARK )+VZ 
X=X+VX*TZ 
Y=Y+VY*TZ 

R 1 (MARK,dd)=DSQRT(X*X+Y*Y  ) 

THETA(MARK,vJJ)=ANGLE(X.Y) 

A  1  =2  .  19E3*TE ( 1 , d)*SQRT(TE(  1 , U)  ) * L AMDA 
A2  = 1  .  14E4*LAMDA*TE (  1 , J ) 

ALAMDA  =  AL0G(AMIN1(A1  ,A2)) 

A3 =8 . 67E-30*LAMDA*LAMDA»ALAMDA/TE ( 1 , J) 

KA ( MARK , UU ) =A3*N0I (  1 ,J)**2*3E 10*TZ/SQRT(  1 -NO  I (  1  . J )/CR I  DEN ) 
d  =  d  +  1 

LOCX ( MARK , JU)=I 
LOCY(MARK,UJ)=J 
IF  ( J.GT .NX)  GOTO  666 
GOTO  9 

C  - 

C  TO  CALCULATE  THE  MINIMUM  POINT  IN  R 

C  - 

96  X=X+VX*TR/2 
Y=Y+VY*TR/2 

R1  (MARK,dd)=DSQRT(X**2  +  Y**2 ) 

THET A ( MARK, JU)= ANGLE (X.Y) 

A  1=2.  19E3*TE (  1 . J)*SORT(TE( 1  , J) ) *  L AMD A 
A2  =  1  .  14E4*LAMDA*TE (  1 , J) 

ALAMDA  =  ALOG( AMIN1 ( A  1 , A 2 ) ) 

A3  =  8 . 67E-30*LAMDA*LAMDA*ALAMDA/TE(  1  ,  J ) 

KA(MARK, JJ)  =  A3*N0I ( 1 , U)**2*3E 10* ( TR/2 )/SORT(  1 -NO  I (  1 , J  )  /CR I  DEN ) 

TR2  =  TR 

LOCX ( MARK . UJ)=I 
LOCY(MARK,UJ)=U 
VSUM( MARK )=VSUM( MARK )+VZ 

c  - 

C  TO  LOCATE  THE  NEXT  POINT  AFTER  HAVING  REACHED  THE  MINIMUM 

C  POINT 

c  - 

994  UJ=UJ+1 

IF  (JJ.GT . 100)  GOTO  37 
Z(MARK, JJ)=Z(MARK, JU- 1 )+VZ*TR2/2 
99  IF  (Z(MARK.dd) .GT.d*DZ)  GOTO  97 
GOTO  98 

c  - 

C  RAY  HITS  VERTICAL  BOUNDARY  BEFORE  IT  REACHES  THE  SHELL  SURFACE 

c  - 

97  Z(MARK,dd)=d*DZ 

TZ= (Z( MARK. dd)-Z( MARK, dd-1 ))/VZ 
X=X+VX*TZ 
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Y  =  Y  +  VY  *TZ 

VSUM( MARK )=VSUM( MARK )+VZ 
R1  (MARK,  dd)=DSQRT(X*X-*-Y*Y  ) 

THETA ( MARK , dd )= ANGLE ( X , Y ) 

A1=2. 19E3*TE( 1 , d  )* SORT ( TE ( 1 , d ))* LAMDA 
A2  = 1  .  14E4*LAMDA*TE ( 1 ,d) 

ALAMDA=ALOG( AMIN1 (A1 ,A2) ) 

A3=8 . 67E-30*LAMDA*LAMDA*ALAMDA/TE ( 1 , d ) 

KA ( MARK , dd  ) =A3*N0 1 ( 1 , d ) *  * 2 * 3E 1 0* TZ/SQRT (  1-NOI ( 1 ,d)/CRIDEN) 
d  =  d+  1 

LOCX (MARK,dd)=I 
LOCY ( MARK , dd  )  =  d 
IF  (d.GT.NX)  GOTO  666 
TR2=TR2-2*TZ 
GOTO  994 

c  - 

C  TO  FIND  THE  POINT  SYMMETRICAL  TO  THE  FIRST  ENTRY  POINT  AT  THE 

C  INNER  MOST  CORE  (ITS  RADIUS  MIGHT  BE  SMALLER  THAN  THAT  OF  THE 

C  1ST  SHELL) 

C  - 

98  X=X+VX*TR2/2 

Y  =  Y  +  VY  *TR2/2 

VSUM( MARK )=VSUM( MARK )+VZ 
R1(MARK,dd)=DSQRT(X*X+Y*Y) 

THETA(MARK, dd) = ANGLE ( X , Y ) 

A1=2.19E3*TE(1 , d)*SQRT(TE( 1 , d )  )  *  LAMDA 
A2= 1  .  1 4E4  *  LAMDA  *TE (  1  ,d) 

ALAMDA  =  ALOG( AMIN1 ( A  1 ,A2)  ) 

A3=8 . 67E-30*LAMDA*LAMDA*ALAMDA/TE ( 1 ,d) 

KA(MARK, dd ) =A3  *N0 1 ( 1 , d ) *  *  2  * 3E 1 0* ( TR2/ 2 ) /SORT ( 1 -NOI (  1  ,d)/CRIDEN) 

LOCX(MARK,dd)=I 

LOCY(MARK,dd)=d 

IF  ( ABS(R 1 (MARK, dd)-R2( 1 , d)  )  .GT .  1 .OE-4 )  GOTO  92 
1=2 

GOTO  3 


THE  SYMMETRICAL  POINT  IS  NOT  RIGHT  AT  THE  1ST  SHELLLAYER  BUT 
WITHIN  IT 


92  TZZ=0 
995  dd=dd+1 

IF  (dd.GT . 100)  GOTO  37 
Z ( MA RK, dd)  =  Z( MARK, dd-1  )+VZ* ( TR  1  -TR  ) 
IF  (Z(MARK.dd)  .GT.d*DZ)  GOTO  99  1 
GOTO  992 


RAY  HITS  THE  COLUMN  BEFORE  IT  REACHES  THE  SYMMETRICAL  POINT 


991  Z(MARK,dd)=d*DZ 

TZZ=(Z( MARK, dd)-Z(MARK, dd-1 ) )/VZ 

X  =  X  + VX  *  TZZ 

Y=Y+VY*TZZ 

VSUM( MARK )=VSUM( MARK )+VZ 
R1 (MARK, dd)=DSQRT(X*X  +  Y*Y  ) 

THETA(MARK,dd)=ANGLE(X,Y) 

A  1 =2 .  19E3*TE ( 1 ,d)*SQRT(TE(  1  , d)  )* LAMDA 
A2= 1  .  1 4E4  *  LAMDA*TE (  1  . d) 

ALAMDA  =  ALOG( AMIN1 ( A  1  , A2  )  ) 

A3 =8 . 67 E -30* LAMDA* LAMDA *ALAMDA/TE( 1 ,d) 

KA(MARK,dd )  =  A3*N0I (  1 , d ) *  * 2  * 3E 1 0*TZZ/ SORT (  1-NOI (  1  ,d)/CRIDEN) 
d  =  d+1 

LOCX (MARK,dd)=I 

LOCY(MARK,dd)=d 

IF  (d.GT.NX)  GOTO  666 

TR=TR+TZZ 

GOTO  995 


RAY  HITS  AT  THE  1ST  SHELL  LAYER 
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992  X=X+VX*(TR1-TR) 

Y=Y+VY*(TR1-TR) 

VSUM ( MARK )=VSUM( MARK )+VZ 
R1(MARK,JJ)=R2( 1 , J) 

THETA(MARK,JJ)=ANGLE(X,Y) 

999  A  1=2 . 19E3*TE( 1 ,J)*SQRT(TE( 1 , J ) ) *LAMDA 
A2= 1 . 14E4*LAMDA*TE ( 1 , J) 

ALAMDA  =  ALOG( AMIN1 ( A  1 , A2 ) ) 

A3  =  8 . 67 E -30* LAMDA*  LAMDA  * ALAMDA/TE (  1 , J ) 

KA(MARK, JJ)=A3*N0I ( 1 , J ) *  * 2  * 3E 1 0* ( TR 1 -TR ) /SORT ( 1-NOI ( 1 , J)/ 
*CR I  DEN ) 

WR I TE ( 6 , 605 )MARK , J , KA ( MARK , J J ) 

605  FORMAT(/'ABS.COEFF  .  (  '  , 12,  '  ,  1  ,  '  , I  2 ,  '  ) = '  , E  1  5 . 8  ) 

1=2 

LOCX(MARK,J«J)  =  I 
LOCY(MARK, JJ)=J 
GOTO  3 

993  R 1 ( MARK , JJ ) =R2 ( 1 , J ) 

TR=(R1 (MARK, UJ)-R1 (MARK, JJ-1 ) ) / ( VR * R I ( 1 , J ) ) 

Z ( MARK, UJ)=Z( MARK, JJ-1 )+TR*VZ*RI ( 1 , J) 

IF  (Z(MARK, JJ) .GT. J*DZ)  GOTO  996 
VSUM (MARK )= VSUM (MARK )+VZ 
X=X+VX*TR*RI (  1 . J  ) 

Y  =  Y  + VY  *TR  *  R I ( 1 , U) 

THETA (MARK, JJ)= ANGLE (X, Y) 

A  1  =2  . 19E3*TE( 1 , J  )  *  SORT ( TE ( 1  ,  J) ) *  LAMDA 
A2= 1 .  1 4E4  *LAMD A  *  TE ( 1  ,U) 

ALAMDA  =  ALOG( AMIN1 ( A  1 , A 2 ) ) 

A3 =8 . 67 E- 30* LAMDA* LAMDA* ALAMDA/TE ( 1 , J) 

KA(MARK,UJ)=A3*  NO  I ( 1 , U  )  * *2*3E 10*TR/SQRT (  1-NOI (  1  ,U)/CRIDEN) 
WR I T  E ( 6 , 605 ) MARK , J , KA ( MARK , J J ) 

1=2 

LOCX(MARK,JJ)=I 
LOCY(MARK,JJ)=J 
GOTO  999 

996  Z(MARK,vJJ)=J*DZ 

T ZZ=(Z( MARK, JJ)-Z( MARK . J J -  1 )  )  / ( VZ * R I (  1 , J  )  ) 

X=X+VX*RI ( 1 , J)*TZZ 

Y  =  Y  +  VY  *R I (  1 , J  )  *TZZ 

VSUM ( MARK )= VSUM ( MARK )+VZ 
R 1 (MARK , UJ)=DSQRT(X*X+Y*Y ) 

THETA (MARK , Ud)= ANGLE (X , Y ) 

A  1 =2 .  19E3*TE ( 1 , U)*SQRT(TE( 1 , J ) ) *  LAMDA 
A2  = 1  .  1 4E4* LAMDA *TE (  1 .  U) 

ALAMDA  =  ALOG( AMIN  1 ( A  1 ,A2)  ) 

A3=8 . 67 E -30* LAMDA * LAMDA* ALAMDA/TE ( 1 , J) 

KA(MARK.UJ) = A3* NO  I (  1  , J)**2*3E 10*TZZ/SQRT(  1-NOI (  1  ,J)/CRIDEN) 
J  =  J+  1 

LOCX(MARK, JJ)=I 
LOCY(MARK,JJ)=J 
IF  (J.GT.NX)  GOTO  666 
JU=JU+ 1 

IF  (UJ.GT . lOO)  GOTO  37 
GOTO  993 


ALGORITHM  FOR  RAYS  GOING  ALONG  Z-AXIS 


1 10  JU= 1 
J=  1 

VZ  =  3 . OE 10 
DZ=ZL/NX 1 
R 1 ( MARK , 1 )=0.0 
THET  A ( MARK , 1 )=0.0 
Z ( MARK , 1)=0.0 
LOCX ( MARK ,  1  )  =  1 
LOCY ( MARK ,  1  )=  1 
1101  UJ=JU+1 

IF  (JJ .GT . 100)  GOTO  37 
TZ  =  DZ/ ( VZ* R I ( 1 ,d)  ) 

R1 (MARK, JU)=0.0 
THETA(MARK, JJ)=0.0 
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Z(MARK,  JJ)  =  Z(MARK,U<J-1  )  +  DZ 
VSUM( MARK )=VSUM( MARK )+VZ 
A1=2.  19E3*TE (  1 , J)*SQRT(TE( 1 , 0 ) ) *  LAMD A 
A2  =  1  .  14E4*LAMDA*TE ( 1,0) 

ALAMDA  =  AL0G( AMI N 1 ( A  1 , A2) ) 

A3=8 . 67E-30*LAMDA*LAMDA*ALAMDA/TE ( 1,0) 

KA(MARK,00) =  A3  *N0 1 (  1 , 0 ) *  * 2  * 3E 1 0*TZ/SQRT (  1-N0I (  1 . 0)/CRIDEN) 

0  =  0+1 

L0CX(MARK,00)=1 
L0CY(MARK, 00)=0 
IF  (0.GT .NX)  GOTO  666 
GOTO  1101 
666  NPT S (MARK)=00 

WRITE(6 ,601 )MARK 

601  F0RMAT(/ 'DATA  FROM  PROGRAM : RA Y AB5 '  , / ' RA Y '  ,  1 X , I  3/ '  RAD . POS .  '  , 2X , 

* ' ANG . POS .  ' , 2X , 

*  'AXIAL  P05I  .  '  ,2X,  'ABS.COEF .  ',2X,'X  CELL  L0C.',2X,'Y  CELL  LOC  .  '  ) 

WRITE (6 ,602)  (R 1 (MARK, 0) .THETA (MARK , 0 ). Z ( MARK , 0 ), KA ( MARK , 0 ) , LOCX ( M 
* ARK , 0 ) , LOC Y ( MARK, 0) ,0=1,00) 

602  FORMAT (E 10. 3, 2X ,E10.3,2X,E10.3,2X,E10.3,2X,7X,I3,2X,7X,I3) 

WRITE (2. 603)  ( R 1 (MARK , 0 ), Z ( MARK , 0 ), 0= 1 , 00 ) 

603  FORMAT ( 2E 1 8 . 10) 

VSUM( MARK )=VSUM( MARK )/00 

GOTO  12 

END 


X  VELOCITY  ALGORITHM 


REAL  FUNCTION  X VE L ( X , VX , T , I , 0 ) 

DOUBLE  PRECISION  X 

COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 , 60 ) .LASHEL 

XVEL  = -OMEGA ( I  , 0  )  *X * S I N( OMEGA ( I , 0 ) *T ) +VX *COS ( OMEGA ( I  , 0  )  * T  ) 

RETURN 

END 


Y  VELOCITY  ALGORITHM 


REAL  FUNCTION  Y VE L ( Y , VY , T , I , 0 ) 

DOUBLE  PRECISION  Y 

COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 , 60 ) .LASHEL 

YVEL  = -OMEGA ( I , J ) * Y * S I N ( OMEGA ( I  , U  )  * T  )  +  VY * COS ( OME GA ( I  ,  J  )  *  T  ) 

RETURN 

END 


X  COORDINATE  ALGORITHM 


REAL  FUNCTION  XCOOR ( X , VX , T , I . J ) 

DOUBLE  PRECISION  X 

COMMON  /GRIDP/R2(60, 60) . OMEGA ( 60 , 60 ) , LASHEL 

XCOOR =X*COS( OMEGA ( I  , J  )  * T  )  +  VX * S I N ( OMEGA ( I , J ) * T ) /OME G A ( I  , J) 

RETURN 

END 


Y  COORDINATE  ALGORITHM 


REAL  FUNCTION  YCOOR ( Y , VY , T , I , J ) 

DOUBLE  PRECISION  Y 

COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 , 60 ) .LASHEL 

YCOOR  =  Y*COS( OMEGA ( I , J)*T  )  + VY *S IN ( OMEGA ( I , J )* T ) /OMEGA ( I  , J ) 

RETURN 

END 


MINIMUM  RADIUS  ALGORITHM 


REAL  FUNCTION  SMALR ( R , VX , VY , D , I , J ) 

DOUBLE  PRECISION  VX , VY 

COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 , 60 ) , LASHEL 
SMALR=R**2/2+(VX**2+VY**2)/(2*0MEGA( I ,U)**2)-D 
IF  (SMALR.LT. 0.0)  SMALR=0 . 0 
SMALR  =  SORT( SMALR  ) 

RETURN 

END 
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- - 

C  MAXIMUM  RADIUS  ALGORITHM 

- - 

REAL  FUNCTION  B I GR ( R , VX , VY , D , I , J ) 

DOUBLE  PRECISION  VX , VY 

COMMON  /GRIDP/R2(60, 60 ) , OMEGA ( 60 , 60 ) , LASHEL 
BIGR=DSQRT(R**2/2+(VX**2+VY**2)/(2*0MEGA(  I  ,  <J  )  *  *2  )  +D  ) 

RETURN 

END 

- - 

C  TIME  FOR  TRAVERSING  FROM  SHELL  TO  SHELL 

C - 

REAL  FUNCTION  RTIME ( RNOT , RNEW , VELX , VELY , ID , UD , PHIO , DD ) 

DOUBLE  PRECISION  VELX, VELY 
INTEGER  FLAG 

COMMON  /GRIDP/R2( 60 , 60 ) , OMEGA ( 60 , 60 ) , LASHEL 
IO=ID 

RTIME  1=RNEW**2-RN0T**2/2-(  VELX* *2+VELY* *2  )/(2*0MEGA(  ID , UD  )**2  ) 
RTIME 1=ASIN( RTIME 1/DD) 

THETA=RTIME 1 
FLAG= 1 
10  =  0 

IF  (THETA . LT .0.0)  GOTO  1 

C  - 

C  TO  CONVERT  THETA  TO  ITS  MULTIPLE  ANGLE  IN  THE  2ND  QUADRANT 

C  GIVEN  THE  ARGUMENT  OF  SI N( THETA )  IS  POSITIVE 

c  - 

3  RTIME  =  (RTIME 1-PHIO)/ ( 2 * OMEGA ( ID , UD ) ) 

IF  (RTIME ,GT .0.0)  RETURN 

10=10+ 1 

IF  ( FLAG . EQ . 0 )G0T0  2 
RTIME 1=10*3 . 14159-THETA 
FLAG=0 
GOTO  3 

C  - 

C  TO  CONVERT  THETA  TO  ITS  MULTIPLE  VALUE  IN  THE  3RD  QUADRANT 

C  GIVEN  THE  ARGUMENT  OF  SIN(THETA)  IS  POSITIVE 

C  - 

2  RTIME 1=10*3 . 14159+THETA 
F  LAG= 1 
GOTO  3 

C  - 

C  TO  CONVERT  THETA  TO  ITS  MULTIPLE  VALUE  IN  THE  4TH  QUADRANT 

C  GIVEN  THE  ARGUMENT  OF  SIN(THETA)  IS  NEGATIVE 

C  - 

1  10=10+1 

RT IME 1 =3 . 14 159+ABS(THETA ) 

5  RT IME =( RTIME 1-PHIO )/( 2 *OMEGA( ID , UD ) ) 

IF  (RTIME .GT .0.0)  RETURN 
10=10+1 

IF  (FLAG.EQ.O)  GOTO  4 

C  - 

C  TO  CONVERT  THETA  TO  ITS  MULTIPLE  VALUE  IN  THE  2ND  QUADRANT 

C  GIVEN  THE  ARGUMENT  OF  S I N( THETA )  IS  NEGATIVE 

C  - 

RTIME 1=10*3. 14 159 -ABS( THETA ) 

F  LAG  =  0 
GOTO  5 

C  - 

C  TO  CONVERT  THETA  TO  ITS  MULTIPLE  VALUE  IN  THE  3RD  QUADRANT 

C  GIVEN  THE  ARGUMENT  OF  SIN(THETA)  IS  NEGATIVE 

C  - 

4  RTIME 1=10*3 . 14 1 59+ABS ( THETA ) 

FL AG= 1 

GOTO  5 
END 

c - 

C  ANGLE  BETWEEN  TWO  CONSECUTIVE  POINTS 

c - 

REAL  FUNCTION  ANGLE ( X , Y ) 

DOUBLE  PRECISION  X.Y 
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IF  (X.EQ.0.0.AND. Y  GE .0.0)  GOTO  2 
IF  (X . E0 .0.0. AND . Y . LT .0.0)  GOTO  6 
IF  ( Y . EO .0.0. AND . X . GT . 0 . 0 )  GOTO  4 
IF  ( Y . EQ . 0.0. AND . X . LT .0.0)  GOTO  7 
ANGLE =DATAN(X/Y ) 

GOTO  5 
2  ANGLE=0 . 0 
RETURN 

6  ANGLE  =  3 .14  159 
RETURN 

4  ANGLE  =  1 .570795 
RETURN 

7  ANGLE=4 .712385 
RETURN 

5  IF  (ANGLE . LT .0.0)  GOTO  1 

IF  (X .GT .0.0. AND . Y . GT .0.0)  RETURN 


ANGLE  IN  THE  3RD  QUADRANT  WITH  ARCT AN ( X/ Y )  BEING  POSITIVE 


ANGLE=ANGLE+3 .14159 
RETURN 

1  IF  (X.LT.O.O.AND.Y.GT.O.O)  GOTO  3 


ANGLE  IN  THE  2ND  QUADRANT  WITH  X>0,Y<0 


ANGLE  =  3 .  14  159-ABS( ANGLE ) 
RETURN 


ANGLE  IN  THE  4TH  QUADRANT  WITH  X<0,Y>0 


3  ANGLE  =  2*3 .  14  159-ABS( ANGLE ) 
RETURN 
END 


ALGORITHM  FOR  PHASE  ANGLE  PHI 


REAL  FUNCTION  FI(T1  ,T2) 

IF  (T2 . EQ . 0.0)  GOTO  4 
FI=ATAN(T 1/T2) 

GOTO  3 

4  F I  =  1  . 570795 
3  IF  (FI .GT .0.0)  GOTO  1 

IF  (T 1 . GT .0.0. AND . T2 . LT .0.0)  GOTO  2 


PHI  HAS  THE  MULTIPLE  VALUE  IN  THE  4TH  QUADRANT  FOR  PHI  BEING 
NEGATIVE 


F I =  2 * 3  .  14 159-ABS( FI  ) 
RETURN 


PHI  HAS  THE  MULTIPLE  VALUE  IN  THE  2ND  QUADRANT  TOR  PHI  BEING 
NEGATIVE 


2  F I =3  .  14159-ABS( FI  ) 
RETURN 


PHI  HAS  THE  MULTIPLE  VALUEIN  THE  3RD  QUADRANT  FOR  PHI  BEING 
POSITIVE 


1  IF  (T1  . LT .0.0. AND ,T2 . LT .0.0)  F I = 3 .  1 4 1 59  + AB S ( F  I  ) 
RETURN 
END 


ALGORITHM  FOR  FINDING  THE  TIME  OF  TRAVERSING  SHELL 
WITH  A  DECREASING  DENSITY  N  =  NO(  1  -R**2/A**2 ) 


REAL  FUNCTION  HT I  ME ( A , B , C , I , U , NC ) 

COMMON  /GRIDP/R2(60, 60) , OMEGA ( 60 . 60 ) , LASHEL 
CALL  R00T(A,B,C,R1 ,R22,NC) 

IF  (NC.EQ. 1 )  RETURN 

IF  (R1 . LT .0.0. AND . R22 . LT .0.0)  GOTO  2 
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- - 

C  TIME  FUNCTION  FOR  NON-PARABOLIC  DENSTIY  APPROXIMATION 

C  N  =  NO(  1 -A**2/R**2  ) 

C 

C  CONST  >0 . 0 ,  VR>0.0 

C  - 

FUNCTION  TIMEPP(R0.R1 ,VR, CONST) 

FACT= ( RO*VR ) **2+C0NST 

TIMEPP=FACT*R1**2-C0NST*R0**2 

TIMEPP=RO/FACT*SQRT(TIMEPP)-RO*RO*RO*VR/FACT 

RETURN 

END 

c - 

C  CONST  >0 . 0 ,  VR<0.0 

c  - 


FUNCTION  TIMEPN( RO , R 1 , VR , CONST ) 

FACT=(R0*VR)**2+C0NST 
TIMEPN  =  FACT*R1 ** 2-CONST  *R0**2 
IF  (TIMEPN. LT .0.0)  TIMEPN=0.0 

TIMEPN=RO/FACT*( -SORT ( T I MEPN ) )+RO*RO*RO* ABS ( VR ) /FACT 

RETURN 

END 

C  - 

C  CONST  <0 . 0 .  VR>0 . 0 

C - - 


FUNCTION  TIMENP(R0,R1 , VR . CONST) 

F  ACT= ( RO* VR ) * *2 -ABS ( CONST ) 

TIMENP=FACT*R 1 ** 2+ ABS ( CONST ) *R0**2 

TIMENP=RO/FACT*SQRT(TIMENP)-RO*RO*RO*VR/FACT 

RETURN 

END 

C  - 

C  CONST  <0 . 0 ,  VR<0.0, 

C  - 

FUNCTION  TIMENN(R0,R1 , VR , CONST) 

FACT=(RO*VR )**2-ABS(C0NST ) 

TIMENN=FACT*R1**2+ABS( CONST )*R0**2 

TIMENN=RO/FACT*( - SORT ( T I MENN ) ) +  R0 * RO * RO * ABS ( VR ) / F ACT 

RETURN 

END 

C - 

C  ALGORITHM  FOR  FINDING  THE  ABSORPTION  COEFFICIENTS 

C  IN  THE  PLASMA  CELLS  WITH  A  RADIALLY  INCREASING  PARABOLIC 

C  DENSITY  PROFILE  N  =  NO (  1 +  R *  * 2/ A  *  *  2 ) 

C - 

SUBROUTINE  ABSORB (MR AY . RO . 20 , DZ . T 1 . VX . VY . PH I , LAMDA ,TE,D,I,J,JJ.Z) 
DOUBLE  PRECISION  DRO , DOMEGA , DAOI SO . DNOI , DD , F , Y . VX . T2 , VY , 

*DVX , DVY 

REAL  NO  I , LAMDA , A  1  , A2 , LLAMDA . KA , TE ( 30 . 60 ) 

INTEGER  TOTRAY , MRAY , Z 
EXTERNAL  F 

COMMON  /ABS0B/A0ISQ(6O,6O) , NO  I (60,60) . LOCX( 100,100), LOCY(  100.100), 
*KA( 100. 100) 

COMMON  /FUNCF/DRO.DVX , DVY . DOMEGA , DAOI SO , DNO I  ,  DD  .  FI 
COMMON  /GRIDP/R2(60, 60) , OMEGA ( 60 , 60 ) .LASHEL 

C  - 

C  CHANGE  VALUES  INTO  DOUBLE  PRECISION  VALUES 

C  - 

DRO=RO* 1 .DO 
C  DR  1 =R 1  *  1 . DO 

DAO  I SQ  =  AOI SQ( I , J)*1 .DO 
DNO I =N0 I ( I ,  J)*1 .DO 
C  DVZ=VZ* 1 . DO 

C  DVT  =(VX**2+VY**2)*1  . DO 

DD=D* 1 .DO 

DOMEGA =OMEGA( I , J ) *  1  . DO 
T2  =  T  1*1  .ODO 
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DVX  =VX 
DVY  =  VY 
F I =PHI 

C  - 

C  FIND  THE  INTEGRAL  PATH  OF  ABSORPTION  BETWEEN  TWO  POINTS 

C  LOCX(MRAY. JJ)  DENOTES  THE  CORRESPONDING  CELL  IN  A  PLASMA  SHELL 

C  LAYER 

c  - 

CALL  DOG 3 2 ( 0 . DO , T2 , F , Y ) 

IF  (LOCX(MRAY, JJ-1 ) . LT . I )  GOTO  3 
IX= INT ( ( LOCX ( MRA Y , JJ- 1 )- 1 )/2 .0)+ 1 
GOTO  4 

3  I  X  =  I NT ( LOCX ( MR AY ,  J  J  -  1 )/2 .  0  ) +  1 

4  TE15  =  TE( IX,J)*SQRT(TE( IX, J)  ) 

A  1 =2 . 19E3*TE15*LAMDA 

A2  = 1  .  14E4*LAMDA*TE(IX,J) 

LLAMDA=AL0G(AMIN1(A1 ,A2)) 

A3  =  26 ,01E-20*LAMDA**2  *  LL AMDA  *  Z 
TKA=DABS(Y  )  * A3/TE  15 


ABSORPTION  COEF.  IS  THE  SUM  OF  ALL  SEGMENT  LENGTHS  WITHIN  A 
PLASMA  CELL 


KA(MRAY, JU)=TKA 

RETURN 

END 


ALGORITHM  FOR  THE  FUNCTION  USED  IN  THE  ABSORPTION 
INTEGRAL  N  =  NO (  1 +R *  *  2 /A  *  *  2  ) 


DOUBLE  PRECISION  FUNCTION  F ( T ) 

DOUBLE  PRECISION  T , RSQ . DRO , VX , VY , DOMEGA , DNO I  , DAO  I  SO , DD 
COMMON  /FUNCF/DRO , VX , VY . DOMEGA , DAO  I  SO , DNO I , DD , PHI 
COMMON  /DNGRP/RI (60, 60) , CR I DE N , F L AG ( 60 . 60 ) 

RSQ=DRO*  *2/2 . 0D0+ ( VX *  *  2  + VY* *2  )  / ( 2*D0MEGA**2 )+DD* 1 . ODO*DSIN(2*DOMEG 
*A*T  +  PHI ) 

F  =DNO I  * (  1  , ODO+RSO/D AO  I  SO ) 

F  =  F  *  F 

RETURN 

END 


ALGORITHM  FOR  FINDING  ABSORPTION  COEF.  FOR  A 
PARABOLIC  DENSITY  PROFILE  N  =  NO (  1 -R *  *  2/ A  *  *  2  ) 


SUBROUTINE  ABSOB 1 ( MARK , T 1 , VX , VY , VZ , L AMDA , TE , TERM  1  , TERM2 , 

*1 , U , UU , Z , ZO , DZ  ) 

REAL  NO  I , L AMDA , A  1 , A2 , LLAMDA , KA , TE ( 30 , 60 ) 

INTEGER  Z 

DOUBLE  PRECISION  DOMEGA , DAO  I  SO , DNO I , T2 , G , Y , VX . VY , VE LX , VE L Y 
EXTERNAL  G 

COMMON  /ABSOB/ AO  I  SO (60, 60) , NO  I (60, 60) ,LOCX(  100,100) ,LOCY(  100.100), 
*KA ( 100, 100) 

COMMON  /FUNCG/VELX , VELY , DOMEGA, DAOISO.DNOI  , T EM  1  , TEM2 
COMMON  /GRIDP/R2(60, 60) , OMEGA ( 60 , 60 ) , LASHEL 

COMMON  /DRAYP/XO(  100)  ,Y0(  100)  , THET AX (  100)  , THETA Y(  100) ,P(  100)  .TOTRA 
*Y, ENIN, PI , EN( 100) 

VE  LX  =  VX 
VE  L Y  =  VY 
TEM 1 =TERM 1 
TEM2=TERM2 

DAOI SO=AOI S0( I ,U)*1 .DO 
DNO I =N0 I ( I , U)* 1 .DO 
DOMEGA  =  OMEGA ( I , J ) *  1  . DO 
T2  =  T 1  *  1 .ODO 

CALL  D0G32 ( 0 . DO , T2 , G , Y ) 

IF  (LOCX(MARK, JJ- 1 ) . LT . I )  GOTO  3 
I X= I F I X ( ( LOCX ( MARK, JU- 1 )- 1 )/2 .0)+ 1 
GOTO  4 

3  IX=IFIX(LOCX(MARK, JJ-1 )/2.0)+1 

4  TE15=TE(IX,J)*SQRT(TE(IX,J)) 
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A  1 =2 .  19E3*TE 15* LAMDA 
A2= 1 . 14E4*LAMDA*TE( IX , j) 
LLAMDA=AL0G(AMIN1(A1 ,A2)) 

A 3  =  26 . 01 E-20*LAMDA*  *2*LLAMDA*Z 

TKA=DABS(Y  )*A3/TE15 

KA(MARK,JJ)=TKA 

RETURN 

END 


FUNCTION  FOR  NON-PARABOLIC  DE/IN-CREASING  DENSITY 
N  =  NO ( 1 -A**2/R**2 ) , CONST  >0 . O 


SUBROUTINE  AB0B2P ( MR A Y , RO , ZO , DZ , T 1 , VR , CONST , LAMDA , TE , I .  J, JJ.Z) 

DOUBLE  PRECISION  DRO , DVR , DCONST , DNO I  , DAO  I  SO , Y , F 2P , T 2 , F 2PN 

DOUBLE  PRECISION  F2PPN , F2PNN 

REAL  NO I ,LAMDA,TE(30,60) , KA , LLAMDA 

INTEGER  MRA Y , Z , FLAG 

EXTERNAL  F2P 

EXTERNAL  F2PN 

EXTERNAL  F2PPN 

EXTERNAL  F2PNN 

COMMON  /AB SOB/ AO  I  SO (60, 60) , NO I (60,60) , LOCX( 100,100), LOCY(  100,100), 
*K A ( 100, 100) 

COMMON  /FUNF2P/DR0 , DNO I , DAO I  SO , DCONST , DVR 
COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 , 60 ) , LASHEL 
COMMON  /DNGRP/RI (60.60) . CR I  DEN . F L AG ( 60 , 60 ) 

DRO=RO* 1 .DO 

DVR=VR* 1 . DO 

DNO I =N0 I ( I ,  J)*1 .DO 

DCONST  =  CONST* 1 .DO 

DAOI SQ=AOI S0( I , J)*1 .DO 

T2  =  T 1*1  .ODO 

IF  ( F  LAG( I  ,  J ) . EQ . 4 )  GOTO  6 
IF  (VR.LT.O.O)  GOTO  5 
CALL  D0G32 ( 0 . DO , T2 , F2P , Y ) 

GOTO  2 

5  CALL  DOG 3 2 ( 0 . DO , T2 , F2PN , Y ) 

GOTO  2 

6  IF  (VR.LT.O.O)  GOTO  7 

CALL  D0G32 ( 0 . DO ,T2,F2PPN,Y) 

GOTO  2 

7  CALL  DQG32 ( O.DO,T2,F2PNN,Y ) 

2  IF  ( LOCX(MRAY , UJ- 1 )  .  LT  .  I  )  GOTO  3 

I  X  =  I  NT ( ( LOCX(MRAY , JJ- 1)-1)/2.0)+1 
GOTO  4 

3  I X  =  I  NT ( LOCX (MRAY.JJ-1 )/2 .  0 )  +  1 

4  TE15  =  TE(  IX  ,J)*SQRT(TE(  IX, U)  ) 

A  1 =2 .  19E3*TE15*LAMDA 

A2= 1 . 14E4* LAMDA *TE( IX , d) 

LLAMDA = A LOG ( AMIN  1 ( A  1  , A2 ) ) 

A3  =  26 . 0 1 E -20*LAMDA*  *  2  *  LLAMDA  *  Z 

TKA=DABS(Y  )  * A3/TE  15 

KA(MRAY,UJ)=TKA 

RETURN 

END 


FUNCTION  FOR  NON-PARABOLIC  DE / I NCRE A S I NG  DENSITY 
N=NO( 1-A**2/R**2)  CONST<0.0 


SUBROUTINE  AB0B2N( MRAY , RO , ZO . DZ , T 1 , VR .CONST , LAMDA ,TE , I  , J , JJ , Z  ) 

DOUBLE  PRECISION  DRO , DVR , DCONST , DNOI , DAOI SO , Y , F2N , T2 , F2P , F2PN 

REAL  NO  I , LAMDA ,TE(30,60) ,KA, LLAMDA 

INTEGER  MRAY, Z, FLAG 

EXTERNAL  F2P 

EXTERNAL  F2PN 

COMMON  /ABS0B/A0ISQ(60,60) , NO I (60,60) , LOCX( 100,100), LOCY( 100,100), 
*KA( 100, 100) 

COMMON  /FUNF2P/DR0 , DNO I , DAO  I  SO , DCONST ,DVR 
COMMON  /GRIDP/R2(60,60) , OMEGA ( 60 . 60 ) , LASHEL 
COMMON  /DNGRP/RI (60, 60) ,CR I  DEN, FLAG (60, 60) 
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DR0=R0* 1 .DO 

DVR=VR* 1 . DO 

DNO I  =N0 1  ( I  ,U)*1  .DO 

DC0NST=C0NST* 1 .DO 

DAOI SQ  =  A0I SQ( I . U ) *  1  .DO 

T2=T 1*1 .0D0 

IF  (VR.LT.0.0)  GOTO  5 

CALL  DOG 3 2 ( 0 . DO , T2 , F2P  ,  V ) 

GOTO  2 

5  CALL  DQG32(O.DO,T2,F2PN,Y) 

2  IF  (L0CX(MRAY,<JJ-1  )  .LT.  I  )  GOTO  3 

I  X  =  I NT ( (L0CX(MRAY,dJ-1 )-1 )/2.0)+1 
GOTO  4 

3  IX=INT(L0CX(MRAY,UJ-1 )/2 .0)+1 

4  TE 15=TE( IX. U)*SQRT(TE( IX . 0) ) 

A  1 =2 .  19E3*TE15*LAMDA 

A2= 1 . 14E4*LAMDA*TE ( IX  ,  U) 

LLAMDA  =  ALOG( AMIN1 ( A  1 , A2 ) ) 

A3=26 .01E-20*LAMDA**2*LLAMDA*Z 

TKA=DABS(Y)*A3/TE15 

KA(MRAY, JJ)=TKA 

RETURN 

END 


FUNCTION  F2P  FOR  N  =  NO ( 1  - A* * 2/R* *2 ) 
CONST >0 . 0  OR  <0.0  VR>0.0 


DOUBLE  PRECISION  FUNCTION  F2P(T) 

DOUBLE  PRECISION  DRO , DNO I , DAO  I  SO . DCONST . DVR , D 1 
COMMON  /DNGRP/R I ( 60 . 60 ) . CR I  DEN . FLAG (60, 60) 
COMMON  /FUNF2P/DR0 , DNO I , DAO I  SO , DCONST , DVR 
D 1 =DRO*DRO*DVR*DVR+DCONST 

F2P=(T+DR0*DR0*DR0*DVR/D1  )  * *2 *D  1  *D  1 /DRO* *2 
F2P  =  F2P+DC0NST  *DRO*  *2 
F2P=F2P/D 1 

F2P=DN0I * ( 1 -DA0IS0/F2P ) 

F2P=F2P*F2P 

RETURN 

END 


FUNCTION  FOR  N  =  NO ( 1  - A  *  * 2/R* *  2 ) 
CONST >0 . 0  OR  <0.0  VR<0.0 


DOUBLE  PRECISION  FUNCTION  F2PN(T) 

DOUBLE  PRECISION  DRO , DNOI , DAOI SO . DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/R I (60,60) , CR I  DEN , F L AG ( 60 , 60 ) 

COMMON  /FUNF2P/DR0 ,DNOI  , DAO  I  SO , DCONST . DVR 
D1 =DRO*DRO*DVR*DVR+DCONST 

F2PN=(T-DR0*DR0*DR0*DVR/D1  )  * *2 *D 1 *D  1 /DRO* *2 

F2PN=F2PN+DC0NST*DR0**2 

F2PN=  F2PN/D 1 

F 2PN  =  DN0 1  * ( 1-DA0ISQ/F2PN) 

F2PN=F2PN*F2PN 

RETURN 

END 


FUNCTION  FOR  N  =  NO (  1 + A  *  * 2/R *  *  2 ) 
CONST >0 . 0  VR<0 . 0 


DOUBLE  PRECISION  FUNCTION  F2PNN ( T ) 

DOUBLE  PRECISION  DRO , DNO I , DAO  I  SO , DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/R I ( 60. 60 ) ,CR I  DEN. FLAG (60, 60) 

COMMON  /FUNF  2P/DR0 , DNO I , DAO  I  SO , DCONST , DVR 
D 1 =DRO*DRO*DVR*DVR+DCONST 

F2PNN= (T-DR0*DR0*DR0*DVR/D1 ) *  *  2 *D 1 *D  1  /DRO* *  2 

F2PNN  =  F2PNN+DC0NST*DR0*  *2 

F2PNN=F2PNN/D 1 

F2PNN  =  DN0 1  * ( 1+DA0IS0/F2PNN) 

F2PNN=F2PNN*F2PNN 

RETURN 

END 
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FUNCTION  F2PPN  FOR  N  =  N0 ( 1  +  A *  * 2/R *  * 2 ) 
CONST >0 . 0  VR>0 . 0 


DOUBLE  PRECISION  FUNCTION  F2PPN(T) 

DOUBLE  PRECISION  DRO , DNO I , DAO  I  SO , DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/RI (60,60) , CR I  DEN . FLAG( 60 , 60 ) 

COMMON  /FUNF2P/DR0 , DNO I , DAO  I  SO , DCONST , DVR 
D1=DR0*DR0*DVR*DVR+DC0NST 

F2PPN=(T+DR0*DR0*DR0*DVR/D1 )**2*D 1 *D  1 /DRO* *2 

F2PPN=F2PPN+DC0NST*DR0**2 

F2PPN=F2PPN/D1 

F2PPN  =  DN0 1  * ( 1+DA0IS0/F2PPN) 

F2PPN=F2PPN*F2PPN 

RETURN 

END 


ABSORPTION  ALGORITHM  FOR  N  =  NO (  1  -R * *2/ A  *  * 2  ) 


DOUBLE  PRECISION  FUNCTION  G ( T ) 

DOUBLE  PRECISION  T , ARG , RSO , VX , VV , DOMEGA , DNO I  , DAO  I  SO 
COMMON  /DNGRP/RI (60,60) , CR I DEN , F LAG( 60 , 60 ) 

COMMON  /FUNCG/VX , VY , DOMEGA, DAOISO.DNOI , TERM  1  , TERM2 
ARG=DSINH( 2*D0MEGA*T ) 

RSQ=TERM  1  * ( 1 +DSQRT (  1+ARG**2) )  +  TERM2 * ARG- ( VX * *2  +  VY *  *  2 ) /DOMEGA *  *  2 
G  =  DNO I  * ( 1 . DO- R SO/D AO I  SO ) 

G  =  G*G 

RETURN 

END 


FUNCTION  FETA  1  FOR  N  =  NO (  1  - A  *  * 2/R *  *  2 ) 
CONST >0 . 0  OR  <0.0  VR>0.0 


DOUBLE  PRECISION  FUNCTION  FETA  1  ( T  ) 

DOUBLE  PRECISION  DRO , DNO I  , DAO  I  SO , DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/RI (60,60) . CR I  DEN , F LAG( 60 , 60 ) 

COMMON  /FUNF2P/DR0 , DNO I  , DAO  I  SO . DCONST , DVR 
D  1  =DR0*DR0*DVR*DVR+DC0NST 

FETA  1  =  ( T+DRO*DRO*DRO*DVR/D 1 ) **2*D 1 *D 1/DR0**2 

FETA  1  =  FETA 1 +DCONST *DR0* *2 

FETA1=D1/FETA1 

RETURN 

END 


FUNCTION  FOR  N  =  NO ( 1  - A  *  * 2/R * *2  ) 
CONST >0 . 0  OR  <0.0  VR<0.0 


DOUBLE  PRECISION  FUNCTION  FETA3(T ) 

DOUBLE  PRECISION  DRO , DNOI , DAOI SO , DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/RI ( 60 , 60 ) , CR I  DEN , F L AG ( 60 , 60 ) 

COMMON  /FUNF2P/DR0, DNO I , DAO  I  SO , DCONST , DVR 
D  1  =DRO*DRO*DVR*DVR+DCONST 

FETA3=(T-DR0*DR0*DR0*DVR/D 1  )  **2*D  1  *D1/DR0**2 

FETA3=FETA3+DC0NST*DR0**2 

FETA3=D1/FETA3 

RETURN 

END 


FUNCTION  FOR  N  =  NO ( 1  +  A  *  * 2/R *  * 2 ) 
CONST >0 . 0  VR<0 . 0 


DOUBLE  PRECISION  FUNCTION  FETA4(T ) 

DOUBLE  PRECISION  DRO , DNO I . DAO  I  SO . DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/RI (60,60) , CR I  DEN , F LAG ( 60 , 60 ) 

COMMON  /FUNF2P/DR0 , DNO I , DAO  I  SO , DCONST ,DVR 
D  1  =DRO*DRO*DVR*DVR  +  DCONST 

FETA4  =  (T-DR0*DR0*DR0*DVR/D1 ) * *2 *D 1 *D 1 /DRO* *  2 

FETA4  =  FETA4  +  DC0NST  *DR0**2 

F  ETA4  =D 1 /F  ETA4 

RETURN 

END 
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FUNCTION  FETA2  FOR  N  =  NO (  1 + A *  * 2/R *  *  2  ) 
CONST >0 . 0  VR>0 . 0 


DOUBLE  PRECISION  FUNCTION  FETA2 ( T  ) 

DOUBLE  PRECISION  DRO , DNO I , DAO  I  SO , DARG , DCONST , DVR , D 1 
COMMON  /DNGRP/RI (60,60) , CR I DEN , F L AG ( 60 , 60 ) 

COMMON  /FUNF  2P/DR0 , DNO I  , DAO  I  SO , DCONST , DVR 
D1=DR0*DR0*DVR*DVR+DC0NST 

FETA2=(T+DR0*DR0*DR0*DVR/D1 )**2*D1*D1/DR0**2 

F  ETA2  =  F  ETA2+DC0NST  *DRO*  *2 

FETA2=D1/FETA2 

RETURN 

END 


' 


